From 845cf8bf1ea024f713fa067b6f2e9ec3ce6e4954 Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Fri, 25 Apr 2025 11:47:16 +0300 Subject: [PATCH] chore: updated compiled contracts --- compiled_contracts/CUSDt/log.txt | 10 + .../CUSDt/step_000_cont_0_contract.json | 6202 ++++++++++++++ .../CUSDt/step_000_cont_0_contract.py | 752 ++ .../CUSDt/step_000_cont_0_contract.tz | 4929 +++++++++++ .../CUSDt/step_000_cont_0_sizes.csv | 2 + .../CUSDt/step_000_cont_0_storage.json | 1352 +++ .../CUSDt/step_000_cont_0_storage.py | 1 + .../CUSDt/step_000_cont_0_storage.tz | 1 + .../CUSDt/step_000_cont_0_types.py | 6 + compiled_contracts/CUSDtz/log.txt | 18 +- .../CUSDtz/step_000_cont_0_contract.json | 3722 ++++---- .../CUSDtz/step_000_cont_0_contract.py | 532 +- .../CUSDtz/step_000_cont_0_contract.tz | 7397 ++++++++-------- .../CUSDtz/step_000_cont_0_sizes.csv | 4 +- .../CUSDtz/step_000_cont_0_storage.json | 380 +- .../CUSDtz/step_000_cont_0_storage.py | 2 +- .../CUSDtz/step_000_cont_0_storage.tz | 2 +- .../CUSDtz/step_000_cont_0_types.py | 4 +- compiled_contracts/CXTZ/log.txt | 18 +- .../CXTZ/step_000_cont_0_contract.json | 3546 ++++---- .../CXTZ/step_000_cont_0_contract.py | 526 +- .../CXTZ/step_000_cont_0_contract.tz | 7601 +++++++++-------- .../CXTZ/step_000_cont_0_sizes.csv | 4 +- .../CXTZ/step_000_cont_0_storage.json | 296 +- .../CXTZ/step_000_cont_0_storage.py | 2 +- .../CXTZ/step_000_cont_0_storage.tz | 2 +- .../CXTZ/step_000_cont_0_types.py | 4 +- compiled_contracts/CtzBTC/log.txt | 10 + .../CtzBTC/step_000_cont_0_contract.json | 5727 +++++++++++++ .../CtzBTC/step_000_cont_0_contract.py | 747 ++ .../CtzBTC/step_000_cont_0_contract.tz | 4852 +++++++++++ .../CtzBTC/step_000_cont_0_sizes.csv | 2 + .../CtzBTC/step_000_cont_0_storage.json | 1286 +++ .../CtzBTC/step_000_cont_0_storage.py | 1 + .../CtzBTC/step_000_cont_0_storage.tz | 1 + .../CtzBTC/step_000_cont_0_types.py | 6 + compiled_contracts/Governance/log.txt | 18 +- .../Governance/step_000_cont_0_contract.json | 514 +- .../Governance/step_000_cont_0_contract.py | 92 +- .../Governance/step_000_cont_0_contract.tz | 554 +- .../Governance/step_000_cont_0_sizes.csv | 4 +- .../Governance/step_000_cont_0_storage.json | 18 +- .../Governance/step_000_cont_0_storage.tz | 2 +- .../Governance/step_000_cont_0_types.py | 2 +- compiled_contracts/TezFinOracle/log.txt | 18 +- .../step_000_cont_0_contract.json | 158 +- .../TezFinOracle/step_000_cont_0_contract.py | 20 +- .../TezFinOracle/step_000_cont_0_contract.tz | 247 +- .../TezFinOracle/step_000_cont_0_sizes.csv | 4 +- .../TezFinOracle/step_000_cont_0_storage.json | 13 +- .../TezFinOracle/step_000_cont_0_storage.py | 2 +- .../TezFinOracle/step_000_cont_0_storage.tz | 2 +- .../TezFinOracle/step_000_cont_0_types.py | 2 +- compiled_contracts/scenario.json | 10 +- compiled_contracts/script_init.py | 22 +- compiled_contracts/script_pure.py | 22 +- 56 files changed, 39020 insertions(+), 12651 deletions(-) create mode 100644 compiled_contracts/CUSDt/log.txt create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_contract.json create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_contract.py create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_contract.tz create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_sizes.csv create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_storage.json create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_storage.py create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_storage.tz create mode 100644 compiled_contracts/CUSDt/step_000_cont_0_types.py create mode 100644 compiled_contracts/CtzBTC/log.txt create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_contract.json create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_contract.py create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_contract.tz create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_storage.json create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_storage.py create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_storage.tz create mode 100644 compiled_contracts/CtzBTC/step_000_cont_0_types.py diff --git a/compiled_contracts/CUSDt/log.txt b/compiled_contracts/CUSDt/log.txt new file mode 100644 index 00000000..adadf3f5 --- /dev/null +++ b/compiled_contracts/CUSDt/log.txt @@ -0,0 +1,10 @@ +Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair (Pair 1000000000000000000 "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572; Elt "symbol" 0xea9cb055534474})} 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; 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; RENAME; SENDER; RENAME; 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 744; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; 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; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; 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; RENAME; 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; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; 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; RENAME; 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 }}) + => ./compiled_contracts/CUSDt/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CUSDt/step_000_cont_0_storage.json 1352 + => ./compiled_contracts/CUSDt/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CUSDt/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CUSDt/step_000_cont_0_types.py 7 + => ./compiled_contracts/CUSDt/step_000_cont_0_contract.tz 4929 + => ./compiled_contracts/CUSDt/step_000_cont_0_contract.json 6202 + => ./compiled_contracts/CUSDt/step_000_cont_0_contract.py 752 diff --git a/compiled_contracts/CUSDt/step_000_cont_0_contract.json b/compiled_contracts/CUSDt/step_000_cont_0_contract.json new file mode 100644 index 00000000..dedb15b1 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_contract.json @@ -0,0 +1,6202 @@ +[ + { + "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": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }, + { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "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": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }, + { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "prim": "CONTRACT", + "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], + "annots": [ "%accrueInterestInternal" ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, + { "prim": "RENAME" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, + { "prim": "RENAME" }, + { "prim": "AMOUNT" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "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": "631" } ] }, { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] + }, + { "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": "RENAME" }, + { "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": "573" } ] }, { "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": "628" } ] }, { "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": "631" } ] }, { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "549" } ] }, { "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": "550" } ] }, { "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": "550" } ] }, { "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": "489" } ] }, { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "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": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "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": "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": "3" } ] }, + { "prim": "GET", "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": "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": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "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": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "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": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "265" } ] }, { "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": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "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": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "268" } ] }, { "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": "270" } ] }, { "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": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW" } ] }, + { "prim": "FAILWITH" } + ], + [] + ] + }, + { "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": "382" } ] }, { "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": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW" } ] }, + { "prim": "FAILWITH" } + ], + [] + ] + }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, + { "prim": "RENAME" }, + { "prim": "AMOUNT" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "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": "7" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "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": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "276" } ] }, { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "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": "CDR" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "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": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "265" } ] }, { "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": "3" } ] }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "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": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "268" } ] }, { "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": "270" } ] }, { "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": "NOT" }, + { "prim": "RENAME" }, + { + "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": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "RENAME" }, + { + "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": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "334" } ] }, { "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": "335" } ] }, { "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": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "COMPARE" }, + { "prim": "GE" } + ] + ] + }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_NotAllowed" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "NOT" }, + { "prim": "RENAME" }, + { + "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": "NOT" }, + { "prim": "RENAME" }, + { + "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": "427" } ] }, { "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": "RENAME" }, + { "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": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "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": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "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": "415" } ] }, { "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": "417" } ] }, { "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": "RENAME" }, + { "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": "419" } ] }, { "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": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "SOME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "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": "422" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "NONE", "args": [ { "prim": "nat" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "borrowBalanceStoredView" }, + { "prim": "address" }, + { "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": "628" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + ], + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "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": "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": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "getAccountSnapshotView" }, + { "prim": "address" }, + { + "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": "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": "RENAME" }, + { "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": "573" } ] }, { "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": "628" } ] }, { "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": "631" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "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": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + } +] \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_contract.py b/compiled_contracts/CUSDt/step_000_cont_0_contract.py new file mode 100644 index 00000000..76c06058 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_contract.py @@ -0,0 +1,752 @@ +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('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), + borrowIndex = 1000000000000000000, + borrowRateMaxMantissa = 800000000000, + borrowRatePerBlock = 0, + borrows = {}, + comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), + currentCash = 0, + expScale = 1000000000000000000, + fa2_TokenAddress = sp.address('KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o'), + halfExpScale = 500000000000000000, + initialExchangeRateMantissa = 1000000000000000000, + interestRateModel = sp.address('KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9'), + ledger = {}, + metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, + 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('0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572'), 'symbol' : sp.bytes('0xea9cb055534474')})}, + 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.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + 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) + sp.set_type(sp.snd(params), sp.TContract(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_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_763.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_763.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_763.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_761.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_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.borrowIndex, sp.TNat) + sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_761.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) + sp.set_type(sp.snd(params), sp.TContract(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_565 = sp.local("compute_CToken_565", 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_565.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_565.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_565.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_565.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) + sp.set_type(sp.snd(params), sp.TContract(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) + sp.set_type(sp.snd(params), sp.TContract(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 + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = sp.min(borrowBalance.value, params.repayAmount), 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(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.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_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.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_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.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 + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = sp.min(borrowBalance.value, 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()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), 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 + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = sp.min(borrowBalance.value, params.repayAmount), 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(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), 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), 'FA1.2_NotAllowed') + 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, 'FA1.2_InsufficientBalance') + 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/CUSDt/step_000_cont_0_contract.tz b/compiled_contracts/CUSDt/step_000_cont_0_contract.tz new file mode 100644 index 00000000..4ad04fd3 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_contract.tz @@ -0,0 +1,4929 @@ +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 nat)) (pair %exchangeRateStored unit (contract 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 nat)) (pair %getCash unit (contract 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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 + } + {}; # @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 + { + 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))))))) + 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 + { + 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))))))) + 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))))))) + RENAME; # contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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))))))) + RENAME; # address : nat : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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 address nat : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : 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)) (contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance)))) : 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))))))) + 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))))))) + RENAME; # 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))))))) + 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 + { + 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 + { + 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))))))) + RENAME; # 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))))))) + } + { + 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))))))) + 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))))))) + 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))))))) + RENAME; # address : 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 735; # 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))))))) + RENAME; # contract nat : 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 + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # contract unit : 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 : contract unit : 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 : contract unit : 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))))))) + 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))))))) + RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : 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 : contract (pair (nat %addAmount) (address %originalSender)) : 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))))))) + RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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))))))) + RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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))))))) + } + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # nat : 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))))))) + 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))))))) + RENAME; # address : 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 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))))))) + 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))))))) + 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 + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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 address (pair address @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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + RENAME; # address : 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 address (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))))))) + RENAME; # 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))))))) + PAIR; # 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # address : 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 + { + 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))))))) + RENAME; # address : 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 628; # 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))))))) + 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))))))) + 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 631; # 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))))))) + 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))))))) + RENAME; # 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 : 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; # 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 : 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; # 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 : 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) : 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%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 : 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%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 : 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%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 : 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%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 : 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)))) : 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 : 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)))) : 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 : 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)))) : 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) : 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)))) : 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; # 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)))) : 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))))))) + 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))))))) + RENAME; # 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 : 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; # 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 : 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; # 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 : 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) : 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%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 : 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%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 : 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%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 : 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)))) : 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 : 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)))) : 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) : 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)))) : 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; # 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)))) : 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))))))) + 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 + { + 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))))))) + 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 + { + 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 628; # 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))))))) + 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))))))) + 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 631; # 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))))))) + NIL operation; # list operation : 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 : 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))))))) + } + { + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + NIL operation; # list operation : 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 : 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 address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map 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 + { + 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))))))) + 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 + { + 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))))))) + RENAME; # 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))))))) + 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))))))) + 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 573; # 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))))))) + 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))))))) + 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 + { + 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 628; # 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))))))) + 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))))))) + 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 631; # 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + 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))))))) + 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 + { + 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))))))) + 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 + { + 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 549; # 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))))))) + 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 550; # 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 550; # 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))))))) + 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))))))) + } + { + 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))))))) + 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))))))) + 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 489; # 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))))))) + 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 + { + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + 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 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 : @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 : @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 : @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; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : 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 : @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 : @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 521; # 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))))))) + CDR; # 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 2; # 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 : @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 61; # 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))))))) + NIL operation; # list operation : 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 : 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))))))) + } + { + 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))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @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 : @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 : 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 : 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))))))) + } + { + IF_LEFT + { + 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))))))) + 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))))))) + } + { + 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 357; # 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))))))) + RENAME; # address : 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 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 address 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 address 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 address 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 address 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))))))) + RENAME; # address : pair address (pair address 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 : address : pair address (pair address 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 : address : pair address (pair address 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 address : pair address (pair address 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 address) (pair address (pair address 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))))))) + 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))))))) + RENAME; # 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))))))) + 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + 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 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 + { + 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 628; # 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))))))) + 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))))))) + 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 631; # 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))))))) + SWAP; # list operation : 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 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))))) : list operation : 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 : @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 : @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 : @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 : @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 : @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 : @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 : @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 : @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 : @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; # @parameter%liquidateBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 3; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 + { + DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + } + { + SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + }; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 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))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : @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 : @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 : 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; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (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))))))) + 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 : 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 : 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 : 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 : 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 : 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 : 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 9; # @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 : 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 : 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 : 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 : 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 : 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 263; # 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 : 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 : 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 : @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))))))) + GET 4; # 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))))))) + DUP 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))))))) + DUP; # nat : 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))))))) + DUP 3; # nat : nat : 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))))))) + COMPARE; # int : 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))))))) + LE; # bool : 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))))))) + IF + { + DROP; # 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))))))) + } + { + SWAP; # 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))))))) + DROP; # 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))))))) + }; # 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))))))) + DUP 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))))))) + RENAME; # 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))))))) + 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 265; # 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))))))) + 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 %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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%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; # 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : 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))))))) + COMPARE; # int : 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))))))) + LE; # bool : 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))))))) + IF + { + 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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%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))))))) + 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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))))))) + RENAME; # 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))))))) + 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 268; # 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 + { + 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 270; # 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))))))) + 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))))))) + RENAME; # address : 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 : address : 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 : address : 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 address 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" nat; # 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 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))))))) + DUP 3; # @parameter%liquidateBorrow : @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 : @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 : address : @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 : address : @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 "balanceOf" nat; # option 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata 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 : @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 : @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))))))) + 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))))))) + 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 382; # 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))))))) + RENAME; # address : 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 : address : 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 : address : 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 address 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" nat; # option 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))))))) + SENDER; # @sender : @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))))))) + RENAME; # address : @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))))))) + DIG 5; # @parameter%liquidateBorrow : address : @some : 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 : address : @some : 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 address @some) : 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 + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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 address (pair address @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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + RENAME; # address : 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 address (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))))))) + RENAME; # 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))))))) + PAIR; # 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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 : 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)))) : 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; # 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 : 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)))) : 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 : 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 : 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)))) : 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 : 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 : 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 : 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 : 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 : 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))))))) + 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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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))))))) + } + { + IF_LEFT + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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 address (pair address @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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + 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))))))) + 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))))))) + 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 + { + 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))))))) + 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))))))) + RENAME; # nat : 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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # address : 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))))))) + RENAME; # 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))))))) + RENAME; # address : 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; # address : address : 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; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : 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)) : address : 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 : address : 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 : address : 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 : address : 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 : address : 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)) : address : 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 : 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))))))) + 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))))))) + RENAME; # 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 (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 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 (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))))))) + RENAME; # address : 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 address (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))))))) + } + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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 address (pair address @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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + 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; # 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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 + { + 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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # address : 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))))))) + RENAME; # 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))))))) + RENAME; # address : 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; # address : address : 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; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : 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)) : address : 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 : address : 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 : address : 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 : address : 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 : address : 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)) : address : 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 : 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))))))) + 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))))))) + RENAME; # address : 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 address (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))))))) + RENAME; # address : 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 address (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 + { + 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))))))) + RENAME; # address : 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # contract unit : 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 : contract unit : 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 : contract unit : 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))))))) + 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))))))) + RENAME; # contract nat : 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 : contract nat : 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))))))) + RENAME; # mutez : contract nat : 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 : mutez : 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))))))) + 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))))))) + } + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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 276; # 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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 : address : address : @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))))))) + RENAME; # address : address : address : @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 address (pair address (pair address @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 address (pair address (pair address @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 address (pair address (pair address @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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # address : 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 + { + 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))))))) + RENAME; # address : 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 628; # 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))))))) + 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))))))) + 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 631; # 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))))))) + SWAP; # list operation : 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))))))) + 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 : 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))))))) + 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 : @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 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : 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))))))) + CDR; # address : list operation : 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))))))) + 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 : @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 43; # int : list operation : 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))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : 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))))))) + PUSH mutez 0; # mutez : @some : list operation : 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))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + 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 : @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 7; # @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + DUP 7; # nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + DUP; # nat : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + COMPARE; # int : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + LE; # bool : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + IF + { + DROP; # @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + } + { + SWAP; # @parameter%repayBorrow : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + }; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + DUP 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 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + TRANSFER_TOKENS; # operation : list operation : 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))))))) + CONS; # list operation : 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))))))) + SWAP; # 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 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%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 address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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%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 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%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 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%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 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%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))))))) + 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%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 : 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%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))))))) + RENAME; # 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 : list operation : @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))))))) + 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 : list operation : @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))))))) + 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 : list operation : @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))))))) + 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 : list operation : @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))))))) + IF_NONE + { + PUSH int 263; # 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 : list operation : @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))))))) + 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 : list operation : @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))))))) + DUP 10; # @parameter%repayBorrow : @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%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))))))) + DUP 9; # nat : @parameter%repayBorrow : @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%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))))))) + DUP; # nat : nat : @parameter%repayBorrow : @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%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))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : @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%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))))))) + COMPARE; # int : nat : @parameter%repayBorrow : @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%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))))))) + LE; # bool : nat : @parameter%repayBorrow : @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%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))))))) + IF + { + DROP; # @parameter%repayBorrow : @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%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 : 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%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))))))) + DROP; # 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%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))))))) + }; # 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%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))))))) + DUP 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%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))))))) + 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%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))))))) + 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%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))))))) + RENAME; # 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%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))))))) + 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%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))))))) + 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%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 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%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))))))) + 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%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 : 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%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)))) : nat : list operation : @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)))) : nat : list operation : @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)))) : nat : list operation : @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)))) : nat : list operation : @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)))) : nat : list operation : @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))))) : nat : list operation : @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))))))) + 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%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))))))) + 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%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))))))) + 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%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))))))) + 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%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 (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (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%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 address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (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%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 address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (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%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 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%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 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%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 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%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))))))) + 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%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 : 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%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))))))) + RENAME; # 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%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))))))) + 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%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))))))) + 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%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))))))) + 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%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))))))) + IF_NONE + { + PUSH int 265; # 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%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))))))) + 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%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))))))) + 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%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 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%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))))))) + 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%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 : 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%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)))) : nat : list operation : @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)))) : nat : list operation : @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)))) : nat : list operation : @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)))) : nat : list operation : @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)))) : nat : list operation : @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))))) : nat : list operation : @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))))))) + DUG 3; # 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))))))) + SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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))))))) + 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # address : 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 268; # 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 + { + 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 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 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))))))) + RENAME; # 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))))))) + } + {}; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map 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 + { + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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))))))) + RENAME; # address : 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + RENAME; # 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%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))))))) + 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 276; # 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))))))) + RENAME; # address : 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 : address : 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))))))) + RENAME; # address : address : 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 address (pair address (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 address (pair address (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 address (pair address (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))))))) + 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))))))) + RENAME; # 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 : 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))))))) + 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))))))) + 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 + { + 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 628; # 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))))))) + 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))))))) + 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 631; # 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))))))) + SWAP; # list operation : 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 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 : 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 : @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 : @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 : @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 : @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 : @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 : @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 : @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 : @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 : @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; # @parameter%repayBorrowBehalf : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 3; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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 + { + DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + } + { + SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : 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))))))) + }; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 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 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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))))))) + RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : 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 : @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 : @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 : 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))))) : 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 : 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 : 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 : 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 : 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 : 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 : 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 9; # @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 : 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 : 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 : 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 : 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 : 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 263; # 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 : 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 : 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 : @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))))))) + CDR; # 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))))))) + DUP 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))))))) + DUP; # nat : 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))))))) + DUP 3; # nat : nat : 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))))))) + COMPARE; # int : 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))))))) + LE; # bool : 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))))))) + IF + { + DROP; # 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))))))) + } + { + SWAP; # 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))))))) + DROP; # 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))))))) + }; # 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))))))) + DUP 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))))))) + RENAME; # 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))))))) + 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 265; # 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))))))) + 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))))))) + SWAP; # 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 : 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 : 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 : 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 : 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 : 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 : 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))))))) + 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))))))) + RENAME; # 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))))))) + 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 268; # 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 + { + 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 270; # 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))))))) + } + { + 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + SENDER; # @sender : 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))))))) + RENAME; # address : 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))))))) + PAIR; # pair address 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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 : @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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + RENAME; # 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 671; # 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))))))) + 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))))))) + 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))))))) + RENAME; # 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))))))) + 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 307; # 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))))))) + RENAME; # 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 334; # 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))))))) + 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 335; # 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))))))) + RENAME; # 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 + { + 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))))))) + RENAME; # address : 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # contract unit : 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 : contract unit : 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 : contract unit : 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))))))) + 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))))))) + RENAME; # contract address : 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 : contract address : 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 : contract address : 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 + { + 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))))))) + RENAME; # address : 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))))))) + 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))))))) + 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))))))) + 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))))))) + RENAME; # contract unit : 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 : contract unit : 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 : contract unit : 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))))))) + 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))))))) + RENAME; # contract nat : 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 : contract nat : 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 : 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))))))) + 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))))))) + } + { + 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))))))) + RENAME; # address : 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 address (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 + { + 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))))))) + 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))))))) + RENAME; # address : 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 address (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))))))) + } + { + IF + { + 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))))))) + RENAME; # 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))))))) + UNIT; # unit : 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))))))) + } + { + 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))))))) + RENAME; # 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))))))) + UNIT; # unit : 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 %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 + { + 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))))))) + RENAME; # address : @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 : address : @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 : address : @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 404; # 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))))))) + RENAME; # address : 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 404; # 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 + {} + { + PUSH string "FA1.2_NotAllowed"; # 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))))))) + 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))))))) + RENAME; # address : @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 : address : @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))))))) + RENAME; # address : address : @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))))))) + 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + 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))))))) + NOT; # 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))))))) + RENAME; # 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))))))) + 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))))))) + 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 427; # 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))))))) + RENAME; # address : 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 address 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 address 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))))))) + 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 413; # 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 + {} + { + PUSH string "FA1.2_InsufficientBalance"; # string : 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))))))) + 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 416; # 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))))))) + RENAME; # 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 415; # 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 415; # 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))))))) + 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 417; # 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))))))) + 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))))))) + RENAME; # 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))))))) + DUP 3; # @parameter%transfer : 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))))))) + CAR; # address : 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))))))) + 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 + { + 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 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)))) : 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 420; # 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))))))) + RENAME; # address : 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 420; # 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))))))) + RENAME; # 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 419; # 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))))))) + RENAME; # address : 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))))))) + 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 421; # 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))))))) + RENAME; # address : 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 421; # 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 + { + 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 422; # 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))))))) + RENAME; # address : 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))))))) + } + { + 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))))))) + RENAME; # address : 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))))))) + 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))))) + 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))))))) + 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))))))) + 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 + 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 503; # 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 + }; +view + "borrowBalanceStoredView" 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))))))) + 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))))))) + 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 + { + 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 628; # 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))))))) + 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))))) + 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))))) + 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 : @some + 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 + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some + GET 3; # nat : nat : @some + DIG 2; # @some : nat : nat + CDR; # nat : nat : nat + MUL; # nat : nat + EDIV; # option (pair nat nat) + IF_NONE + { + PUSH int 631; # int + FAILWITH; # FAILED + } + { + CAR; # nat + }; # nat + } + { + 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))))))) + 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 + } + { + 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 + }; +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))))) + 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 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))))))) + 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))))))) + 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))))) + 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))))) + 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))))) + 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 : 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 + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat + GET 4; # nat : nat : nat : nat : nat : nat + SUB; # int : nat : nat : nat : nat + ISNAT; # option nat : nat : nat : nat : nat + RENAME; # option nat : nat : nat : nat : nat + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat + ADD; # nat : nat : nat : nat + SUB; # int : nat : nat + ISNAT; # option nat : nat : nat + RENAME; # option nat : nat : nat + IF_NONE + { + PUSH int 671; # int : nat : nat + FAILWITH; # FAILED + } + {}; # @some : nat : nat + MUL; # nat : nat + EDIV; # option (pair nat nat) + IF_NONE + { + PUSH int 257; # int + FAILWITH; # FAILED + } + { + CAR; # 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))))))) + 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 + }; +view + "getAccountSnapshotView" address (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))))))) + 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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)) : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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)) : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 573; # 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 628; # 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 631; # 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 : @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 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))))))) + 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 (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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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))))))) : 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))))) + 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))))) + 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) + RENAME; # 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) + RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 671; # 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 @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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 : pair (pair @parameter 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))))))) + DROP; # nat : pair (pair @parameter 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))))))) + 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 @parameter nat) (pair nat nat) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) + }; # 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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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 (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))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option 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))))) : pair (pair @parameter 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))))))) + DROP; # pair (pair @parameter 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; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (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 nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + }; \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv b/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv new file mode 100644 index 00000000..6d0e2af4 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv @@ -0,0 +1,2 @@ +storage,5466 +contract,21211 \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_storage.json b/compiled_contracts/CUSDt/step_000_cont_0_storage.json new file mode 100644 index 00000000..dd3167d0 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_storage.json @@ -0,0 +1,1352 @@ +{ + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ [], { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" } ] } ] }, + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "800000000000" }, { "int": "0" } ] } ] } + ] + }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ { "string": "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" }, { "int": "0" } ] } ] }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o" } ] }, + { "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1000000000000000000" } ] } + ] + } + ] + } + ] + }, + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { "string": "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" }, + { + "prim": "Pair", + "args": [ + [], + [ + { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "74657a6f732d73746f726167653a64617461" } ] }, + { + "prim": "Elt", + "args": [ + { "string": "data" }, + { + "bytes": "7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d" + } + ] + } + ] + ] + } + ] + }, + { "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": "54657a46696e20496e7465726573742d42656172696e672055534420546574686572" } ] }, + { "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "ea9cb055534474" } ] } + ] + ] + } + ] + } + ], + { "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": "RENAME" }, + { "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": "812" } ] }, { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "744" } ] }, { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "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": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "LT" } + ] + ] + }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "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": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "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": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "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": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "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": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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/CUSDt/step_000_cont_0_storage.py b/compiled_contracts/CUSDt/step_000_cont_0_storage.py new file mode 100644 index 00000000..aa6616a5 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_storage.py @@ -0,0 +1 @@ +sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, borrows = {}, comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), currentCash = 0, expScale = 1000000000000000000, fa2_TokenAddress = sp.address('KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o'), halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9'), ledger = {}, metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, 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('0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572'), 'symbol' : sp.bytes('0xea9cb055534474')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_storage.tz b/compiled_contracts/CUSDt/step_000_cont_0_storage.tz new file mode 100644 index 00000000..5d71ae94 --- /dev/null +++ b/compiled_contracts/CUSDt/step_000_cont_0_storage.tz @@ -0,0 +1 @@ +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair (Pair 1000000000000000000 "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572; Elt "symbol" 0xea9cb055534474})} 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; 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; RENAME; SENDER; RENAME; 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 744; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; 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; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; 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; RENAME; 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; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; 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; RENAME; 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/CUSDt/step_000_cont_0_types.py b/compiled_contracts/CUSDt/step_000_cont_0_types.py new file mode 100644 index 00000000..1f124713 --- /dev/null +++ b/compiled_contracts/CUSDt/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.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(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.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(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.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } diff --git a/compiled_contracts/CUSDtz/log.txt b/compiled_contracts/CUSDtz/log.txt index a148b6f6..5e918b87 100644 --- a/compiled_contracts/CUSDtz/log.txt +++ b/compiled_contracts/CUSDtz/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" (Pair {} 1000000000000000000))) (Pair (Pair 80000000000 (Pair 0 "KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW")) (Pair 0 (Pair 1000000000000000000 "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9")))) (Pair (Pair (Pair 500000000000000000 1000000000000000000) (Pair "KT1QCL5W3heju7SJKvRgYR9xNtP9fEenG1Eq" (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair 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 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; GET 3; GET 5; IF_NONE { PUSH int 780; FAILWITH } {}; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 711; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 5; DUP 6; GET 7; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 434; FAILWITH } {}; GET 3; SWAP; DUP; DUG 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 435; FAILWITH } {}; GET 3; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 437; FAILWITH } {}; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { DUP; CDR; PUSH nat 0; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; DUP; CDR; PUSH nat 0; COMPARE; EQ; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 442; FAILWITH } {}; DUP; GET 3; NONE nat; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR } { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 444; FAILWITH } {}; DUP; GET 3; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 }; SWAP; DUP; DUG 2; GET 3; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 3; CAR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 727; FAILWITH } {}; SWAP; DUP; DUG 2; MUL; DUP 3; CAR; GET 7; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DIG 3; DUP; GET 7; DUP 3; ADD; UPDATE 7; DUP; DUP; GET 9; SWAP; DUP; DUG 6; CAR; GET 7; DUP 4; DIG 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 9; DUP; DUG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DUP 9; CAR; CAR; GET 6; DUP 10; CAR; GET 7; DIG 10; CAR; CAR; GET 6; DUP 10; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; SWAP; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 5; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; SWAP; DUP; DUG 2; GET 9; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; SWAP; DUP; DUG 2; SWAP; DUP; DUG 2; DIG 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 8; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 12; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; GET 3; SELF_ADDRESS; RENAME; PAIR 3; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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 } }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 13; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 8; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; 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 } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; SWAP; DUP; DUG 2; GET 5; GET 3; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; 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 } {} } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_storage.json 1222 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz 4683 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_contract.json 5787 - => ./TezFinBuild/compiled_contracts/CUSDtz/step_000_cont_0_contract.py 699 + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e67205553442054657a; Elt "symbol" 0xea9cb0555344747a})} 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 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; 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; GET 3; SENDER; RENAME; 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; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; 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; DUP 3; DUP 7; GET 5; CAR; 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; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; 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; RENAME; SENDER; RENAME; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.json 1286 + => ./compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CUSDtz/step_000_cont_0_types.py 7 + => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.tz 4852 + => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.json 5727 + => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.py 747 diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_contract.json b/compiled_contracts/CUSDtz/step_000_cont_0_contract.json index 9e641d59..a6de46a4 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_contract.json +++ b/compiled_contracts/CUSDtz/step_000_cont_0_contract.json @@ -14,45 +14,22 @@ { "prim": "pair", "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%accrualBlockNumber" ] }, { "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] } ] - }, { "prim": "pair", "args": [ - { "prim": "address", "annots": [ "%administrator" ] }, + { "prim": "nat", "annots": [ "%accrualBlockNumber" ] }, { "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ], - "annots": [ "%accountBorrows" ] - }, - { - "prim": "pair", - "args": [ - { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] }, - { "prim": "nat", "annots": [ "%balance" ] } - ] - } - ] - } - ], - "annots": [ "%balances" ] - }, - { "prim": "nat", "annots": [ "%borrowIndex" ] } - ] + "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" ] } ] } + ] } ] }, @@ -62,15 +39,22 @@ { "prim": "pair", "args": [ - { "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRatePerBlock" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ] } + { + "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": "nat", "annots": [ "%currentCash" ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%expScale" ] }, { "prim": "address", "annots": [ "%fa1_2_TokenAddress" ] } ] } + { "prim": "nat", "annots": [ "%expScale" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%fa1_2_TokenAddress" ] }, { "prim": "nat", "annots": [ "%halfExpScale" ] } ] } ] } ] @@ -83,11 +67,36 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%halfExpScale" ] }, { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] } ] }, { "prim": "pair", "args": [ - { "prim": "address", "annots": [ "%interestRateModel" ] }, + { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%interestRateModel" ] }, + { + "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": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] }, { "prim": "pair", "args": [ @@ -112,7 +121,26 @@ { "prim": "pair", "args": [ - { "prim": "nat", "annots": [ "%totalBorrows" ] }, + { + "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" ] } ] } ] } @@ -174,39 +202,24 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, { "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } + "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": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } + { + "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": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } ] } ] @@ -217,10 +230,31 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "pair", - "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ] + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, + { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } + ] } ] }, @@ -228,7 +262,25 @@ "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { "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" } ] } + ] + } ] } ] @@ -250,39 +302,24 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, { "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } + "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": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } + { + "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": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } ] } ] @@ -293,10 +330,31 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "pair", - "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ] + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, + { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } + ] } ] }, @@ -304,7 +362,25 @@ "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { "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" } ] } + ] + } ] } ] @@ -507,15 +583,22 @@ { "prim": "or", "args": [ - { "prim": "nat", "annots": [ "%reduceReserves" ] }, + { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }, { "prim": "or", "args": [ - { "prim": "nat", "annots": [ "%repayBorrow" ] }, { "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" ] } ] } @@ -529,15 +612,18 @@ { "prim": "or", "args": [ + { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { - "prim": "pair", + "prim": "or", "args": [ - { "prim": "address", "annots": [ "%borrower" ] }, - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%liquidator" ] }, { "prim": "nat", "annots": [ "%seizeTokens" ] } ] } - ], - "annots": [ "%seize" ] - }, - { "prim": "or", "args": [ { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { "prim": "nat", "annots": [ "%setReserveFactor" ] } ] } + { "prim": "nat", "annots": [ "%setReserveFactor" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], + "annots": [ "%sweepFA12" ] + } + ] + } ] }, { @@ -546,11 +632,6 @@ { "prim": "or", "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], - "annots": [ "%sweepFA12" ] - }, { "prim": "pair", "args": [ @@ -558,13 +639,13 @@ { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] } ], "annots": [ "%sweepFA2" ] - } + }, + { "prim": "bool", "annots": [ "%sweepMutez" ] } ] }, { "prim": "or", "args": [ - { "prim": "bool", "annots": [ "%sweepMutez" ] }, { "prim": "pair", "args": [ @@ -572,6 +653,11 @@ { "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" ] } ] } @@ -591,519 +677,47 @@ "prim": "code", "args": [ [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { - "prim": "CAST", + "prim": "IF_LEFT", "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "or", - "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": "nat" }, { "prim": "address" } ] } ] }, - { - "prim": "or", - "args": [ - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - } - ] - }, + [ + { "prim": "DUP" }, + { + "prim": "IF_LEFT", + "args": [ + [ { - "prim": "or", + "prim": "IF_LEFT", "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - }, + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], + [ { - "prim": "or", + "prim": "IF_LEFT", "args": [ - { "prim": "nat" }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } - ] - } + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ] ] } ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "contract", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] }, { "prim": "contract", "args": [ { "prim": "nat" } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } - ] - } - ] - }, + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ], + [ { - "prim": "or", + "prim": "IF_LEFT", "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { - "prim": "or", - "args": [ - { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "nat" } ] } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "bool" }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - }, - { - "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": "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": "set", "args": [ { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] - } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "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": "set", "args": [ { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] - } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { "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": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ] ] } ] @@ -1190,23 +804,20 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "ADD" }, { "prim": "ADD" }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -1217,9 +828,11 @@ { "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" }, @@ -1229,13 +842,13 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } ], "annots": [ "%getBalance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "30" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "33" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%setCash" ] }, { "prim": "RENAME" }, @@ -1301,9 +914,11 @@ { "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" }, @@ -1319,7 +934,7 @@ }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "702" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, @@ -1354,7 +969,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -1368,9 +983,11 @@ { "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" }, @@ -1408,13 +1025,11 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] }, { "prim": "MEM" }, { @@ -1427,16 +1042,18 @@ { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1452,7 +1069,7 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -1466,7 +1083,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, @@ -1507,12 +1124,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -1524,32 +1139,74 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -1560,7 +1217,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -1574,7 +1231,7 @@ ], "annots": [ "%borrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "199" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -1584,12 +1241,11 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "COMPARE" }, { "prim": "GE" }, { @@ -1611,7 +1267,7 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -1625,7 +1281,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, @@ -1638,8 +1294,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -1649,18 +1305,17 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -1672,7 +1327,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1680,7 +1335,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1694,10 +1349,8 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, @@ -1705,32 +1358,28 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "193" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "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": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, @@ -1738,30 +1387,35 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "194" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "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": "DUP" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "7" } ] }, { "prim": "SWAP" } ], [ @@ -1772,8 +1426,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1783,21 +1437,20 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -1809,7 +1462,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1817,7 +1470,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1837,12 +1490,10 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -1864,24 +1515,21 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -1897,7 +1545,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1949,9 +1597,9 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1973,20 +1621,20 @@ "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "541" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "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": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1996,21 +1644,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -2022,7 +1669,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2030,7 +1677,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2052,7 +1699,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -2074,24 +1721,21 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -2107,7 +1751,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2141,9 +1785,9 @@ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -2153,18 +1797,18 @@ "args": [ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "517" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -2174,32 +1818,26 @@ "args": [ [ { "prim": "DROP" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [] @@ -2220,9 +1858,9 @@ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -2231,22 +1869,18 @@ "args": [ [ { "prim": "DROP" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] } + { "prim": "CDR" } ], [] ] @@ -2274,12 +1908,10 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -2301,24 +1933,21 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -2334,7 +1963,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2348,21 +1977,18 @@ [] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2379,11 +2005,10 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2400,9 +2025,7 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, @@ -2417,7 +2040,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -2443,7 +2066,7 @@ ], "annots": [ "%liquidateBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "339" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -2507,8 +2130,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -2518,21 +2141,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -2544,7 +2166,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2552,7 +2174,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2566,7 +2188,7 @@ { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -2580,7 +2202,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -2601,29 +2223,25 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "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": "246" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -2634,25 +2252,23 @@ ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, @@ -2660,37 +2276,29 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -2700,18 +2308,35 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "UPDATE", "args": [ { "int": "7" } ] }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "251" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -2722,11 +2347,11 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2740,7 +2365,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, @@ -2759,12 +2384,9 @@ [] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "VIEW", "args": [ { "string": "balanceOf" }, { "prim": "nat" } ] }, { @@ -2781,9 +2403,7 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "LIQUIDATE_SEIZE_TOO_MUCH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", @@ -2801,12 +2421,12 @@ ], "annots": [ "%seize" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "364" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "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": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, @@ -2868,12 +2488,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -2885,32 +2503,74 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -2921,7 +2581,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -2935,7 +2595,7 @@ ], "annots": [ "%mintAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "89" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -2960,7 +2620,7 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -2974,7 +2634,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, @@ -2987,7 +2647,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -3007,24 +2667,21 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -3038,7 +2695,7 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { @@ -3049,17 +2706,17 @@ [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "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": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3067,6 +2724,14 @@ "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" } ] }, @@ -3074,34 +2739,36 @@ { "prim": "ADD" }, { "prim": "UPDATE", "args": [ { "int": "10" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "85" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "99" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "SWAP" } ], [ @@ -3123,7 +2790,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -3140,7 +2807,7 @@ ], "annots": [ "%redeemAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "159" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -3154,7 +2821,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -3176,24 +2843,21 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -3209,7 +2873,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3225,7 +2889,7 @@ }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, @@ -3235,123 +2899,160 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, - { "prim": "GE" }, + { "prim": "GT" }, { "prim": "IF", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" } + ], + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "DROP" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "UPDATE", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "DUP" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "154" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "8" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "155" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, - { - "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": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } + [ + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "SWAP" }, + { "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": "7" } ] }, + { + "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": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } ], [ { "prim": "SELF_ADDRESS" }, @@ -3368,7 +3069,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -3385,7 +3086,7 @@ ], "annots": [ "%redeemAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "159" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -3395,14 +3096,12 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -3412,9 +3111,9 @@ "prim": "IF", "args": [ [ - { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, @@ -3424,24 +3123,21 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -3457,7 +3153,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3468,144 +3164,207 @@ ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" } ] + [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "270" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "280" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "COMPARE" }, - { "prim": "GE" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "EDIV" }, { - "prim": "IF", + "prim": "IF_NONE", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] + [ { "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": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "DROP" }, - { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, + { "prim": "ADD" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "GT" }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "UPDATE", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "DUP" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "154" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "8" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "155" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" } + ], + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, { - "prim": "CONTRACT", + "prim": "IF", "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": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } + [ + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "SWAP" }, + { "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": "7" } ] }, + { + "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": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } ] ] } @@ -3617,68 +3376,69 @@ { "prim": "IF_LEFT", "args": [ - [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "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": "CDR" }, - { "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": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] }, - { "prim": "UPDATE" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "UNIT" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" }, - { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, - { "prim": "RENAME" }, - { "prim": "AMOUNT" }, - { "prim": "RENAME" }, - { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, + { "prim": "RENAME" }, + { "prim": "AMOUNT" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], [ { "prim": "SELF_ADDRESS" }, { "prim": "RENAME" }, @@ -3690,12 +3450,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -3707,34 +3465,79 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "SWAP" } + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } ], [] ] @@ -3744,7 +3547,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -3767,7 +3570,7 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "258" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, @@ -3797,8 +3600,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -3808,21 +3611,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -3834,7 +3636,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3842,7 +3644,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -3856,7 +3658,7 @@ { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -3870,7 +3672,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, @@ -3890,10 +3692,8 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, @@ -3901,17 +3701,15 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "246" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -3922,25 +3720,23 @@ ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, @@ -3948,36 +3744,28 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "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": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -3987,18 +3775,35 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "UPDATE", "args": [ { "int": "7" } ] }, + { "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": "GET", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "251" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4006,16 +3811,14 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SENDER" }, @@ -4026,7 +3829,14 @@ [] ] } - ], + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ [ { "prim": "SELF_ADDRESS" }, { "prim": "RENAME" }, @@ -4038,12 +3848,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -4053,6 +3861,8 @@ "prim": "IF", "args": [ [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, @@ -4060,27 +3870,70 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -4092,7 +3945,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -4115,14 +3968,11 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "258" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, @@ -4149,8 +3999,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -4160,21 +4010,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -4186,7 +4035,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -4194,7 +4043,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4208,7 +4057,7 @@ { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -4222,7 +4071,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, @@ -4243,29 +4092,25 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "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": "246" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -4276,25 +4121,23 @@ ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, @@ -4302,37 +4145,29 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -4342,18 +4177,35 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "UPDATE", "args": [ { "int": "7" } ] }, + { "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": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "251" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4364,11 +4216,11 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -4379,193 +4231,282 @@ [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] } - ] - ] - } - ] - ] - } - ] - ] - } - ], - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, - { - "prim": "IF", - "args": [ + ], [ - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, { - "prim": "PUSH", + "prim": "IF", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [] ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "PAIR" }, - { "prim": "SWAP" } - ], - [] - ] - }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { - "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "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": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CDR" }, - { "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": "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": "RENAME" }, + { "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": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] + "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -4575,214 +4516,148 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "ADD" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "334" } ] }, { "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": "335" } ] }, { "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": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "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" } ] }, + "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": "SWAP" }, + { "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": "GET", "args": [ { "int": "7" } ] }, - { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, { "prim": "RENAME" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "UPDATE", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "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": "317" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, { "prim": "CAR" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "290" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "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": "318" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "8" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "291" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] } + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, + { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } ], [ { "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "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": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, - { "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": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, - { "prim": "UPDATE" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "UNIT" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" }, - { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, - { "prim": "RENAME" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], - [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, @@ -4796,7 +4671,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4810,9 +4685,11 @@ { "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" }, @@ -4832,30 +4709,12 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } - ] - ] - } - ] - ] - } - ], - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { - "prim": "IF_LEFT", - "args": [ + ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, @@ -4863,7 +4722,8 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_UNDERLYING" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", @@ -4878,24 +4738,38 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } - ], + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", @@ -4930,9 +4804,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "38" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "NIL", @@ -4965,7 +4837,8 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, @@ -4974,30 +4847,23 @@ { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } - ] - ] - } - ], - [ - { - "prim": "IF_LEFT", - "args": [ + ], [ { "prim": "IF", "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "20" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, { "prim": "BALANCE" }, { "prim": "RENAME" }, { "prim": "UNIT" }, @@ -5005,17 +4871,17 @@ { "prim": "CONS" } ], [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "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": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, { "prim": "BALANCE" }, { "prim": "RENAME" }, { "prim": "UNIT" }, @@ -5024,13 +4890,18 @@ ] ] } - ], + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ [ { "prim": "SENDER" }, { "prim": "RENAME" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5042,23 +4913,23 @@ { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "387" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "387" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "GE" } @@ -5079,15 +4950,11 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "NOT" }, @@ -5098,32 +4965,77 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "NOT" }, + { "prim": "RENAME" }, + { + "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" } ], @@ -5134,7 +5046,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ @@ -5148,14 +5060,11 @@ ], "annots": [ "%transferAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "409" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "427" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, @@ -5166,19 +5075,17 @@ { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "396" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GE" }, { @@ -5187,37 +5094,39 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "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": "398" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "399" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "398" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, @@ -5227,23 +5136,24 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "400" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, @@ -5257,12 +5167,13 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, @@ -5271,73 +5182,74 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "402" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "13" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "402" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5347,12 +5259,13 @@ [ { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, @@ -5361,25 +5274,26 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "405" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "422" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "SWAP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] @@ -5389,6 +5303,41 @@ [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CDR" }, + { "prim": "SOME" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] } ] ] } @@ -5436,9 +5385,9 @@ { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -5449,13 +5398,13 @@ { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "471" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" } ], [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -5474,8 +5423,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -5484,17 +5433,16 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -5510,12 +5458,12 @@ { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "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": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -5533,7 +5481,7 @@ { "string": "comptroller" }, { "prim": "unit" }, { "prim": "address" }, - [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] } ] + [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] } ] ] }, { @@ -5544,12 +5492,10 @@ { "prim": "nat" }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -5562,29 +5508,27 @@ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -5593,7 +5537,7 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } @@ -5624,9 +5568,9 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -5644,19 +5588,19 @@ { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "541" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "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": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "MEM" }, { @@ -5665,17 +5609,16 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -5687,12 +5630,12 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "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": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], [ { "prim": "DROP" } ] ] @@ -5712,7 +5655,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -5733,24 +5676,21 @@ { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -5759,7 +5699,7 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_contract.py b/compiled_contracts/CUSDtz/step_000_cont_0_contract.py index 4ff75cb7..39f22d3f 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_contract.py +++ b/compiled_contracts/CUSDtz/step_000_cont_0_contract.py @@ -2,118 +2,125 @@ class Contract(sp.Contract): def __init__(self): - self.init_type(sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, balances = sp.TBigMap(sp.TAddress, sp.TRecord(accountBorrows = sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal")), approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("accountBorrows", ("approvals", "balance")))), borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa1_2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", "activeOperations"), ("administrator", ("balances", "borrowIndex"))), (("borrowRateMaxMantissa", ("borrowRatePerBlock", "comptroller")), ("currentCash", ("expScale", "fa1_2_TokenAddress")))), ((("halfExpScale", "initialExchangeRateMantissa"), ("interestRateModel", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), ("totalBorrows", ("totalReserves", "totalSupply"))))))) + 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, fa1_2_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, 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", ("fa1_2_TokenAddress", "halfExpScale")))), ((("initialExchangeRateMantissa", ("interestRateModel", "ledger")), ("metadata", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply"))))))) self.init(accrualBlockNumber = 0, activeOperations = sp.set([]), - administrator = sp.address('KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq'), - balances = {}, + administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), borrowIndex = 1000000000000000000, - borrowRateMaxMantissa = 80000000000, + borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, - comptroller = sp.address('KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW'), + borrows = {}, + comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), currentCash = 0, expScale = 1000000000000000000, fa1_2_TokenAddress = sp.address('KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9'), halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, - interestRateModel = sp.address('KT1QCL5W3heju7SJKvRgYR9xNtP9fEenG1Eq'), + interestRateModel = sp.address('KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW'), + ledger = {}, + metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, + token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x36'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e67205553442054657a'), 'symbol' : sp.bytes('0xea9cb0555344747a')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) - @sp.entry_point + @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.entry_point + @sp.entrypoint def accrueInterest(self, params): sp.set_type(params, sp.TUnit) - compute_CFA12_25 = sp.local("compute_CFA12_25", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) - sp.if compute_CFA12_25.value > 0: + compute_CFA12_27 = sp.local("compute_CFA12_27", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) + sp.if compute_CFA12_27.value > 0: self.data.activeOperations.add(13) - sp.transfer((sp.self_address, sp.self_entry_point('setCash')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), self.data.fa1_2_TokenAddress, entry_point='getBalance').open_some()) + sp.transfer((sp.self_address, sp.self_entrypoint('setCash')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), self.data.fa1_2_TokenAddress, entrypoint='getBalance').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_entry_point('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entry_point='accrueInterestInternal').open_some()) + sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) - @sp.entry_point + @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, entry_point='getBorrowRate').open_some()) + 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.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal')) + 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.entry_point + @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.record(from_ = params.originalSender, to_ = sp.self_address, value = params.addAmount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = params.originalSender, to_ = sp.self_address, value = params.addAmount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) self.data.totalReserves += params.addAmount - @sp.entry_point + @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.verify((self.data.balances[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.balances[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') - sp.verify((self.data.balances[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') sp.if params.value == 0: - del self.data.balances[sp.sender].approvals[params.spender] + del self.data.ledger[sp.sender].approvals[params.spender] sp.else: - self.data.balances[sp.sender].approvals[params.spender] = params.value + self.data.ledger[sp.sender].approvals[params.spender] = params.value - @sp.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some()) + 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.record(from_ = sp.self_address, to_ = sp.sender, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) borrowBalance = sp.local("borrowBalance", 0) - sp.if self.data.balances.contains(sp.sender): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) + 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.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params - self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[sp.sender].principal = borrowBalance.value + params + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex self.data.totalBorrows += params - @sp.entry_point + @sp.entrypoint def borrowBalanceStored(self, params): - sp.set_type(sp.fst(params), sp.TAddress) - borrowBalance = sp.local("borrowBalance", 0) - sp.if self.data.balances.contains(sp.fst(params)): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) - sp.if borrowSnapshot.value.principal > 0: - borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - __s1 = sp.local("__s1", borrowBalance.value) + __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) sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) - @sp.entry_point + @sp.entrypoint def doAccrueInterest(self, params): sp.set_type(params, sp.TNat) sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM') @@ -124,64 +131,39 @@ def doAccrueInterest(self, params): 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_729 = sp.local("compute_CToken_729", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(compute_CToken_729.value.mantissa * self.data.totalBorrows, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_729.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_731 = sp.local("compute_CToken_731", (compute_CToken_729.value.mantissa * self.data.totalBorrows) // self.data.expScale) - self.data.totalBorrows = compute_CToken_731.value + self.data.totalBorrows + sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_763.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_731.value, sp.TNat) + sp.set_type(compute_CToken_763.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_731.value, sp.TNat) - sp.set_type(self.data.reserveFactorMantissa * compute_CToken_731.value, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_731.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_731.value) // self.data.expScale) + self.data.totalReserves - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_763.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_761.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_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_729.value.mantissa * self.data.borrowIndex, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_729.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.borrowIndex = ((compute_CToken_729.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_761.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex self.data.accrualBlockNumber = sp.level - @sp.entry_point + @sp.entrypoint def exchangeRateStored(self, params): - 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 - __s2 = sp.local("__s2", excRate.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) - sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) - - @sp.entry_point - def getAccountSnapshot(self, params): - compute_CToken_533 = sp.local("compute_CToken_533", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) - sp.if self.data.balances.contains(sp.fst(params)): - sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') - compute_CToken_533.value.cTokenBalance = self.data.balances[sp.fst(params)].balance - borrowBalance = sp.local("borrowBalance", 0) - sp.if self.data.balances.contains(sp.fst(params)): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) - sp.if borrowSnapshot.value.principal > 0: - borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - compute_CToken_533.value.borrowBalance = borrowBalance.value + __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) @@ -193,108 +175,149 @@ def getAccountSnapshot(self, params): 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_533.value.exchangeRateMantissa = excRate.value - __s3 = sp.local("__s3", compute_CToken_533.value) + sp.result(excRate.value) + sp.set_type(sp.snd(params), sp.TContract(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_565 = sp.local("compute_CToken_565", 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_565.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_565.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_565.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_565.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.entry_point + @sp.entrypoint def getAllowance(self, params): - result = sp.local("result", 0) - sp.if self.data.balances.contains(sp.fst(params).owner): - sp.if self.data.balances[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): - result.value = self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender] - __s4 = sp.local("__s4", result.value) + __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.entry_point + @sp.entrypoint def getBalance(self, params): - result = sp.local("result", 0) - sp.if self.data.balances.contains(sp.fst(params)): - result.value = self.data.balances[sp.fst(params)].balance - __s5 = sp.local("__s5", result.value) + __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.entry_point + @sp.entrypoint def getBalanceOfUnderlying(self, params): - 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.balances[sp.fst(params)].balance, sp.TNat) - sp.set_type(excRate.value * self.data.balances[sp.fst(params)].balance, sp.TNat) - sp.set_type(sp.record(mantissa = excRate.value * self.data.balances[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - __s6 = sp.local("__s6", (excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale) + __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) sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) - @sp.entry_point + @sp.entrypoint def getCash(self, params): - sp.set_type(sp.fst(params), sp.TUnit) - __s7 = sp.local("__s7", self.data.currentCash) + __s7 = sp.bind_block("__s7"): + with __s7: + sp.set_type(sp.fst(params), sp.TUnit) + sp.result(self.data.currentCash) sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) - @sp.entry_point + @sp.entrypoint def getTotalSupply(self, params): - sp.set_type(sp.fst(params), sp.TUnit) - __s8 = sp.local("__s8", self.data.totalSupply) + __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.entry_point + @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.entry_point + @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, entry_point='liquidateBorrowAllowed').open_some()) + 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.balances.contains(params.borrower): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) + 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 - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - sp.if self.data.balances[params.borrower].accountBorrows.principal == 0: - sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entry_point='removeFromLoans').open_some()) + 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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, entry_point='seize').open_some()) + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some()) + 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.record(from_ = sp.sender, to_ = sp.self_address, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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) @@ -312,8 +335,8 @@ def mint(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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")) @@ -321,16 +344,17 @@ def mint(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.value + sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') self.data.totalSupply += amount.value - self.data.balances[sp.sender].balance += amount.value + self.data.ledger[sp.sender].balance += amount.value - @sp.entry_point + @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, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) + 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 @@ -352,8 +376,8 @@ def redeem(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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")) @@ -361,8 +385,8 @@ def redeem(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if False: @@ -383,8 +407,12 @@ def redeem(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + 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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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")) @@ -392,22 +420,23 @@ def redeem(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params - 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.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') - sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + 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.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) - @sp.entry_point + @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, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) + 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 @@ -429,8 +458,8 @@ def redeemUnderlying(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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")) @@ -438,8 +467,8 @@ def redeemUnderlying(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if True: @@ -460,8 +489,12 @@ def redeemUnderlying(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + 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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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")) @@ -469,27 +502,28 @@ def redeemUnderlying(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params - 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.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') - sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + 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.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) - @sp.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal')) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) - @sp.entry_point + @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') @@ -499,71 +533,77 @@ def reduceReservesInternal(self, params): 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.record(from_ = sp.self_address, to_ = self.data.administrator, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) - @sp.entry_point + @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.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = 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, entry_point='repayBorrowAllowed').open_some()) + 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.balances.contains(sp.sender): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) + 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 - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') - sp.if self.data.balances[sp.sender].accountBorrows.principal == 0: - sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entry_point='removeFromLoans').open_some()) + 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.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, 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, entry_point='repayBorrowAllowed').open_some()) + 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.balances.contains(params.borrower): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) + 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 - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - sp.if self.data.balances[params.borrower].accountBorrows.principal == 0: - sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entry_point='removeFromLoans').open_some()) + 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.entry_point + @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.balances.contains(params.liquidator)): - self.data.balances[params.liquidator] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) + 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.balances[params.borrower].balance, sp.TNat) + 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) @@ -592,14 +632,14 @@ def seize(self, params): 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.balances[params.liquidator].balance, 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.balances[params.borrower].balance = sp.as_nat(self.data.balances[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[params.liquidator].balance += sp.as_nat(params.seizeTokens - 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.entry_point + @sp.entrypoint def setCash(self, params): sp.set_type(params, sp.TNat) sp.verify(self.data.activeOperations.contains(13), 'OP_NOT_ACTIVE') @@ -607,22 +647,22 @@ def setCash(self, params): sp.verify(sp.sender == self.data.fa1_2_TokenAddress, 'CT_INVALID_CASH_SENDER') self.data.currentCash = params - @sp.entry_point + @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.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal')) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) - @sp.entry_point + @sp.entrypoint def setInterestRateModelInternal(self, params): sp.set_type(params, sp.TAddress) sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') @@ -630,22 +670,22 @@ def setInterestRateModelInternal(self, params): self.data.activeOperations.remove(9) self.data.interestRateModel = params - @sp.entry_point + @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.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal')) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) - @sp.entry_point + @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') @@ -654,18 +694,18 @@ def setReserveFactorInternal(self, params): sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR') self.data.reserveFactorMantissa = params - @sp.entry_point + @sp.entrypoint def sweepFA12(self, params): sp.set_type(params, sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress"))) sp.verify(params.tokenAddress != self.data.fa1_2_TokenAddress, 'CT_SWEEP_UNDERLYING') - 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, entry_point='transfer').open_some()) + 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.entry_point + @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.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), 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, entry_point='transfer').open_some()) + 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.entry_point + @sp.entrypoint def sweepMutez(self, params): sp.set_type(params, sp.TBool) sp.if params: @@ -673,24 +713,32 @@ def sweepMutez(self, params): sp.else: sp.send(self.data.administrator, sp.balance) - @sp.entry_point + @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.balances[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') - sp.if ~ (self.data.balances.contains(params.to_)): - self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, 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, entry_point='transferAllowed').open_some()) + 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.balances[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') - self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value) - self.data.balances[params.to_].balance += params.value + sp.verify(self.data.ledger[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') + 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.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value) - sp.if self.data.balances[params.from_].approvals[sp.sender] == 0: - del self.data.balances[params.from_].approvals[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.entry_point + @sp.entrypoint def updateProtocolSeizeShare(self, params): sp.set_type(params, sp.TNat) sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz b/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz index ab7c2c2a..64eac756 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz +++ b/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz @@ -1,111 +1,110 @@ -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 (nat %setCash) (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 nat)) (pair %exchangeRateStored unit (contract 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 nat)) (pair %getCash unit (contract 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 (nat %reduceReserves) (or (nat %repayBorrow) (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount))))) (or (or (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens))) (or (address %setInterestRateModel) (nat %setReserveFactor))) (or (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress)))) (or (bool %sweepMutez) (pair %transfer (address %from) (pair (address %to) (nat %value))))))))); -storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))); +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 (nat %setCash) (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 nat)) (pair %exchangeRateStored unit (contract 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 nat)) (pair %getCash unit (contract 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))))); code { - CAST (pair (or (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or nat (or (pair address (contract nat)) (pair unit (contract nat))))) (or (or (pair address (contract (pair (pair address nat) (pair nat nat)))) (or (pair (pair address address) (contract nat)) (pair address (contract nat)))) (or (or (pair address (contract nat)) (pair unit (contract nat))) (or (pair unit (contract nat)) (pair address (pair address nat)))))) (or (or (or nat (or nat nat)) (or nat (or nat (pair address nat)))) (or (or (pair address (pair address nat)) (or address nat)) (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))))))) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))); # pair (or (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or nat (or (pair address (contract nat)) (pair unit (contract nat))))) (or (or (pair address (contract (pair (pair address nat) (pair nat nat)))) (or (pair (pair address address) (contract nat)) (pair address (contract nat)))) (or (or (pair address (contract nat)) (pair unit (contract nat))) (or (pair unit (contract nat)) (pair address (pair address nat)))))) (or (or (or nat (or nat nat)) (or nat (or nat (pair address nat)))) (or (or (pair address (pair address nat)) (or address nat)) (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))))))) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))) - UNPAIR 3; # or (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or nat (or (pair address (contract nat)) (pair unit (contract nat))))) (or (or (pair address (contract (pair (pair address nat) (pair nat nat)))) (or (pair (pair address address) (contract nat)) (pair address (contract nat)))) (or (or (pair address (contract nat)) (pair unit (contract nat))) (or (pair unit (contract nat)) (pair address (pair address nat)))))) (or (or (or nat (or nat nat)) (or nat (or nat (pair address nat)))) (or (or (pair address (pair address nat)) (or address nat)) (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat))))))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_LEFT { - DUP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 1; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 2; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 3; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 4; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 5; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 6; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 7; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 8; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 9; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 10; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 12; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EXEC; # pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT @@ -116,1591 +115,1582 @@ code { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 13; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %getBalance (pair address (contract nat)); # option (contract (pair address (contract nat))) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %getBalance (pair address (contract nat)); # option (contract (pair address (contract 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 30; # int : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 33; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %setCash; # @self : mutez : @some : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : contract nat : mutez : @some : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : contract nat : mutez : @some : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (contract nat) : mutez : @some : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (contract nat) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : nat : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 6; # nat : @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 6; # unit : @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # unit : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 8; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 702; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 735; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # unit : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %addReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # nat : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # set nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : set nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool False; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 17; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair nat address : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair nat address : address : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # address : address : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair nat address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 9; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%addReservesInternal : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NOT; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 199; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GE; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 17; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 193; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 210; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 12; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 10; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 194; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 211; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DROP; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 { - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 541; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 573; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 3; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair address nat) (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair address nat : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : address : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : nat : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address nat) (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract (pair (pair address nat) (pair nat nat))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - PUSH nat 0; # nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 517; # int : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 549; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair address address) (contract nat) : map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair address address : map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # address : map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 518; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 550; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair address address) (contract nat) : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair address address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 518; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 550; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair address address) (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 457; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 489; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 489; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 521; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 61; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 339; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 357; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair address (pair address nat) : address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 17; # int : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 246; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 12; # pair address (pair address nat) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 248; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 251; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 268; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 252; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 270; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : address : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : address : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" nat; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair address (pair address nat) : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : pair address (pair address nat) : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : address : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : address : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair address (pair address nat) : address : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - VIEW "balanceOf" nat; # option nat : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "INVALID BALANCE OF VIEW"; # string : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 364; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 382; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 7; # pair address (pair address nat) : address : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : address : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" nat; # option 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : @some : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : @some : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # pair address (pair address nat) : address : @some : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : @some : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : @some : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @some) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT @@ -1709,2653 +1699,2840 @@ code { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NOT; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 89; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 17; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 85; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 99; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 9; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + }; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 159; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GE; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # nat : @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 154; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 155; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH string "Insufficient balance"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 12; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + }; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 159; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 9; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GE; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # nat : @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 154; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 155; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH string "Insufficient balance"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 12; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @parameter%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @parameter%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @parameter%redeemUnderlying) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT - { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 12; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %reduceReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NOT; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # mutez : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 258; # int : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 276; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair address (pair address (pair address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address (pair address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair address (pair address (pair address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 17; # int : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : @parameter%repayBorrow : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 246; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 12; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 248; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 251; # int : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 268; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 252; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT { - SELF_ADDRESS; # @self : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NOT; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 258; # int : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 276; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address nat : pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 6; # pair address nat : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair address (pair address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair address (pair address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 17; # int : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair address nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 246; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 12; # pair address nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 248; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + SWAP; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 251; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 268; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 252; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 270; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair address nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # pair address nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - } - { - IF_LEFT - { - IF_LEFT - { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NOT; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - } - {}; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - VIEW "seizeAllowed" bool; # option bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "INVALID SEIZE ALLOWED VIEW"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 231; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - CAR; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat nat) (pair address (pair (option address) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 6; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 639; # int : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - CAR; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - } - {}; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 61; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - { - CAR; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 9; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 317; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 290; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 318; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE + PUSH int 307; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 334; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 335; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 10; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE + }; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} { - PUSH int 291; # int : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 9; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %setInterestRateModelInternal; # @self : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract address : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract address : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # address : mutez : contract address : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "CT_SWEEP_UNDERLYING"; # string : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} + }; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 10; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF %setReserveFactorInternal; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + } + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 8; # address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat address : pair nat address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair nat address : address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # address : address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_SWEEP_UNDERLYING"; # string : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 12; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - { - DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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))))))) : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 38; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (pair nat address) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - } - { - IF_LEFT { IF { - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT %receive unit; # option (contract unit) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 20; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - BALANCE; # @balance : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - BALANCE; # @balance : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - } + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT { - SENDER; # @sender : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 387; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 404; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 387; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 404; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GE; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF {} { - PUSH string "FA1.2_NotAllowed"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "FA1.2_NotAllowed"; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NOT; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair nat (pair nat address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 409; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 427; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 5; # pair address (pair address nat) : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 396; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 413; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF {} { - PUSH string "FA1.2_InsufficientBalance"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH string "FA1.2_InsufficientBalance"; # string : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 398; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 416; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 399; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 415; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 398; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 415; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 400; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 417; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 402; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 11; # pair address (pair address nat) : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 13; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 403; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 403; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SUB; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - ISNAT; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 402; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 419; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 404; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 421; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : map address nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 404; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 421; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 8; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 405; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 422; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NONE nat; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat (pair nat address)) (pair nat (pair nat address)) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address))) : pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - NIL operation; # list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map string bytes : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%updateMetadata : big_map string bytes : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 6; # @parameter%updateMetadata : option bytes : big_map string bytes : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : list operation - PAIR; # pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))) : list operation - SWAP; # list operation : pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))) - PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))) + 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) - CAR; # pair (nat %accrualBlockNumber) (set %activeOperations 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : @parameter - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : @parameter - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : @parameter - SWAP; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter + GET 4; # 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 471; # int + PUSH int 503; # int FAILWITH; # FAILED } {}; # @some - GET 4; # nat + CDR; # nat } { - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 }; view "borrowBalanceStoredView" address nat { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair (nat %interestIndex) (nat %principal) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair (nat %interestIndex) (nat %principal) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @parameter : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # nat : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (nat %interestIndex) (nat %principal) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : pair (nat %interestIndex) (nat %principal) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (nat %interestIndex) (nat %principal) - GET 6; # nat : nat : pair (nat %interestIndex) (nat %principal) - DIG 2; # pair (nat %interestIndex) (nat %principal) : nat : nat + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some + GET 3; # nat : nat : @some + DIG 2; # @some : nat : nat CDR; # nat : nat : nat MUL; # nat : nat EDIV; # option (pair nat nat) IF_NONE { - PUSH int 599; # int + PUSH int 631; # int FAILWITH; # FAILED } { @@ -4363,80 +4540,76 @@ view }; # nat } { - DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : nat + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 } { - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 }; view "comptroller" unit address { - GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) - GET 3; # pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller)) - GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) + GET 3; # address }; view "exchangeRateStoredView" unit nat { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (nat %halfExpScale) (nat %initialExchangeRateMantissa) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - LT; # bool : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - GET 7; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat - GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat - DUG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 7; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : nat : nat : nat : nat - GET 5; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat + GET 4; # nat : nat : nat : nat : nat : nat SUB; # int : nat : nat : nat : nat ISNAT; # option nat : nat : nat : nat : nat RENAME; # option nat : nat : nat : nat : nat @@ -4452,7 +4625,7 @@ view RENAME; # option nat : nat : nat IF_NONE { - PUSH int 639; # int : nat : nat + PUSH int 671; # int : nat : nat FAILWITH; # FAILED } {}; # @some : nat : nat @@ -4468,168 +4641,164 @@ view }; # nat } { - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 }; view "getAccountSnapshotView" address (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 541; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 573; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 4; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 596; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - LT; # bool : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - SWAP; # nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (nat %interestIndex) (nat %principal) : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 599; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + PUSH int 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CAR; # pair (nat %halfExpScale) (nat %initialExchangeRateMantissa) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - CDR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) - GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - GET 7; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - DUG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 7; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 5; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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) RENAME; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) @@ -4645,7 +4814,7 @@ view RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) IF_NONE { - PUSH int 639; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + PUSH int 671; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) FAILWITH; # FAILED } {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) @@ -4661,23 +4830,23 @@ view }; # 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : 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) UPDATE 4; # pair (pair @parameter nat) (pair nat nat) } { - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (pair (nat %borrowRatePerBlock) (address %comptroller))) (pair (nat %currentCash) (pair (nat %expScale) (address %fa1_2_TokenAddress))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat (pair nat address)) (pair nat (pair nat address)))) (pair (pair (pair nat nat) (pair address (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair (pair @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) DROP; # pair (pair @parameter nat) (pair nat nat) }; # pair (pair @parameter nat) (pair nat nat) }; \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv b/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv index 5354488e..afcb0b10 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,4698 -contract,20067 \ No newline at end of file +storage,5199 +contract,20314 \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_storage.json b/compiled_contracts/CUSDtz/step_000_cont_0_storage.json index e2c65af1..1fac8b78 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_storage.json +++ b/compiled_contracts/CUSDtz/step_000_cont_0_storage.json @@ -10,17 +10,19 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "0" }, [] ] }, - { "prim": "Pair", "args": [ { "string": "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" }, { "prim": "Pair", "args": [ [], { "int": "1000000000000000000" } ] } ] } + { "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ [], { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" } ] } ] }, + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "800000000000" }, { "int": "0" } ] } ] } ] }, { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "80000000000" }, { "prim": "Pair", "args": [ { "int": "0" }, { "string": "KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW" } ] } ] }, + { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ { "string": "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" }, { "int": "0" } ] } ] }, { "prim": "Pair", - "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" } ] } ] + "args": [ + { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "string": "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" }, { "int": "500000000000000000" } ] } + ] } ] } @@ -32,10 +34,24 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1000000000000000000" } ] }, + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "string": "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" }, [] ] } ] }, { "prim": "Pair", - "args": [ { "string": "KT1QCL5W3heju7SJKvRgYR9xNtP9fEenG1Eq" }, { "prim": "Pair", "args": [ { "prim": "None" }, { "int": "100000000000000" } ] } ] + "args": [ + [ + { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "74657a6f732d73746f726167653a64617461" } ] }, + { + "prim": "Elt", + "args": [ + { "string": "data" }, + { + "bytes": "7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d" + } + ] + } + ], + { "prim": "Pair", "args": [ { "prim": "None" }, { "int": "100000000000000" } ] } + ] } ] }, @@ -43,7 +59,37 @@ "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "int": "50000000000000000" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "0" } ] } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "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": "54657a46696e20496e7465726573742d42656172696e67205553442054657a" } ] }, + { "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "ea9cb0555344747a" } ] } + ] + ] + } + ] + } + ], + { "int": "0" } + ] + }, + { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + ] + } ] } ] @@ -82,19 +128,23 @@ { "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": "5" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "812" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "780" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -155,6 +205,7 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", @@ -169,7 +220,7 @@ ], "annots": [ "%getBorrowRate" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "711" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "744" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, @@ -177,9 +228,11 @@ { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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" }, @@ -224,20 +277,16 @@ { "prim": "COMPARE" }, { "prim": "NEQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "434" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { @@ -247,14 +296,14 @@ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1000" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "435" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "LT" } @@ -264,14 +313,14 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "437" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, @@ -282,13 +331,19 @@ "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], - [ { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ] + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" } + ] ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -297,38 +352,42 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "CAR" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" } ], [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, @@ -336,32 +395,32 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "444" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "CDR" }, { "prim": "SOME" }, { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "CAR" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" } ] ] @@ -392,23 +451,20 @@ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "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" } ] ] }, @@ -418,28 +474,26 @@ { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -449,71 +503,84 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "727" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "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": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "7" } ] }, - { "prim": "DUP" }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, + { "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": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "UPDATE", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "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": "PAIR" }, - { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "CDR" }, @@ -571,7 +638,8 @@ { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, @@ -580,8 +648,11 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "CAR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, { "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -628,13 +699,11 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "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" } ] ] }, @@ -644,9 +713,11 @@ { "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" }, @@ -656,38 +727,32 @@ { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, { "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": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CONTRACT", "args": [ @@ -701,13 +766,14 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -741,7 +807,8 @@ { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, @@ -798,13 +865,11 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "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" } ] ] }, @@ -814,18 +879,20 @@ { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, @@ -836,12 +903,15 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -879,12 +949,11 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, @@ -897,9 +966,8 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -948,13 +1016,11 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "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" } ] ] }, @@ -964,9 +1030,11 @@ { "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" }, @@ -974,13 +1042,15 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -1017,12 +1087,11 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, @@ -1088,13 +1157,11 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "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" } ] ] }, @@ -1104,16 +1171,18 @@ { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1123,14 +1192,10 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1182,12 +1247,11 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_storage.py b/compiled_contracts/CUSDtz/step_000_cont_0_storage.py index d7ff8fae..408b804d 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_storage.py +++ b/compiled_contracts/CUSDtz/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq'), balances = {}, borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 80000000000, borrowRatePerBlock = 0, comptroller = sp.address('KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW'), currentCash = 0, expScale = 1000000000000000000, fa1_2_TokenAddress = sp.address('KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9'), halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1QCL5W3heju7SJKvRgYR9xNtP9fEenG1Eq'), pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file +sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, borrows = {}, comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), currentCash = 0, expScale = 1000000000000000000, fa1_2_TokenAddress = sp.address('KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9'), halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW'), ledger = {}, metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x36'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e67205553442054657a'), 'symbol' : sp.bytes('0xea9cb0555344747a')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz b/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz index cfe98a2f..3c486b87 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz +++ b/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" (Pair {} 1000000000000000000))) (Pair (Pair 80000000000 (Pair 0 "KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW")) (Pair 0 (Pair 1000000000000000000 "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9")))) (Pair (Pair (Pair 500000000000000000 1000000000000000000) (Pair "KT1QCL5W3heju7SJKvRgYR9xNtP9fEenG1Eq" (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair 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 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; GET 3; GET 5; IF_NONE { PUSH int 780; FAILWITH } {}; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 711; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 5; DUP 6; GET 7; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 434; FAILWITH } {}; GET 3; SWAP; DUP; DUG 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 435; FAILWITH } {}; GET 3; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 437; FAILWITH } {}; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { DUP; CDR; PUSH nat 0; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; DUP; CDR; PUSH nat 0; COMPARE; EQ; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 442; FAILWITH } {}; DUP; GET 3; NONE nat; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR } { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 444; FAILWITH } {}; DUP; GET 3; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 }; SWAP; DUP; DUG 2; GET 3; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 3; CAR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 727; FAILWITH } {}; SWAP; DUP; DUG 2; MUL; DUP 3; CAR; GET 7; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DIG 3; DUP; GET 7; DUP 3; ADD; UPDATE 7; DUP; DUP; GET 9; SWAP; DUP; DUG 6; CAR; GET 7; DUP 4; DIG 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 9; DUP; DUG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DUP 9; CAR; CAR; GET 6; DUP 10; CAR; GET 7; DIG 10; CAR; CAR; GET 6; DUP 10; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; SWAP; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 5; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; SWAP; DUP; DUG 2; GET 9; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; SWAP; DUP; DUG 2; SWAP; DUP; DUG 2; DIG 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 8; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 12; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; GET 3; SELF_ADDRESS; RENAME; PAIR 3; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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 } }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 13; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 8; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; 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 } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; SWAP; DUP; DUG 2; GET 5; GET 3; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; 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 } {} } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e67205553442054657a; Elt "symbol" 0xea9cb0555344747a})} 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 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; 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; GET 3; SENDER; RENAME; 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; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; 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; DUP 3; DUP 7; GET 5; CAR; 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; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; 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; RENAME; SENDER; RENAME; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_types.py b/compiled_contracts/CUSDtz/step_000_cont_0_types.py index 4cc7a35f..5910ccc9 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_types.py +++ b/compiled_contracts/CUSDtz/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp -tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, balances = sp.TBigMap(sp.TAddress, sp.TRecord(accountBorrows = sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal")), approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("accountBorrows", ("approvals", "balance")))), borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa1_2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", "activeOperations"), ("administrator", ("balances", "borrowIndex"))), (("borrowRateMaxMantissa", ("borrowRatePerBlock", "comptroller")), ("currentCash", ("expScale", "fa1_2_TokenAddress")))), ((("halfExpScale", "initialExchangeRateMantissa"), ("interestRateModel", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), ("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.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(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.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(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.TNat, 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"))), 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", "updateProtocolSeizeShare"))))))) +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, fa1_2_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, 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", ("fa1_2_TokenAddress", "halfExpScale")))), ((("initialExchangeRateMantissa", ("interestRateModel", "ledger")), ("metadata", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), (("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.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(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.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(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.TNat, 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.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } diff --git a/compiled_contracts/CXTZ/log.txt b/compiled_contracts/CXTZ/log.txt index 2c166e65..72144a8b 100644 --- a/compiled_contracts/CXTZ/log.txt +++ b/compiled_contracts/CXTZ/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" (Pair {} 1000000000000000000))) (Pair (Pair 80000000000 0) (Pair "KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW" (Pair 1000000000000000000 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 "KT1AtJQgU4zEp2wgyWRK7DqdDiPkWBodNiwz") (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 0) (Pair 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; GET 3; GET 3; IF_NONE { PUSH int 780; FAILWITH } {}; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CDR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 711; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 434; FAILWITH } {}; GET 3; SWAP; DUP; DUG 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 435; FAILWITH } {}; GET 3; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 437; FAILWITH } {}; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { DUP; CDR; PUSH nat 0; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; DUP; CDR; PUSH nat 0; COMPARE; EQ; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 442; FAILWITH } {}; DUP; GET 3; NONE nat; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR } { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 444; FAILWITH } {}; DUP; GET 3; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 3; CAR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 727; FAILWITH } {}; SWAP; DUP; DUG 2; MUL; DUP 3; CAR; GET 7; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DIG 3; DUP; GET 7; DUP 3; ADD; UPDATE 7; DUP; DUP; GET 9; SWAP; DUP; DUG 6; CAR; GET 7; DUP 4; DIG 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 9; DUP; DUG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DUP 9; CAR; CAR; GET 6; DUP 10; CAR; GET 7; DIG 10; CAR; CAR; GET 6; DUP 10; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; SWAP; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; SWAP; DUP; DUG 2; GET 9; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; SWAP; DUP; DUG 2; SWAP; DUP; DUG 2; DIG 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; 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; GET 3; SENDER; RENAME; 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 } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CAR; DIG 4; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; 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 10 { 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; SWAP; DUP; DUG 2; GET 5; CAR; SWAP; DUP; DUG 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 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 } {} } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; 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 }}) - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_storage.json 1112 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_contract.tz 5005 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_contract.json 5811 - => ./TezFinBuild/compiled_contracts/CXTZ/step_000_cont_0_contract.py 712 + -> (Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" (Pair 1000000000000000000 800000000000))) (Pair (Pair 0 (Pair {} "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG")) (Pair 1000000000000000000 (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672058545a; Elt "symbol" 0xea9cb058545a})})) (Pair 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; 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; RENAME; SENDER; RENAME; 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 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; 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; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 6; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; DUP 2; ADD; DIG 4; SWAP; UPDATE 7; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; 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 5; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 5; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; 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; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; 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; GET 3; SENDER; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; 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 } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; 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 10 { 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; 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 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 } {} } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; 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 }}) + => ./compiled_contracts/CXTZ/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CXTZ/step_000_cont_0_storage.json 1136 + => ./compiled_contracts/CXTZ/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CXTZ/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CXTZ/step_000_cont_0_types.py 7 + => ./compiled_contracts/CXTZ/step_000_cont_0_contract.tz 5102 + => ./compiled_contracts/CXTZ/step_000_cont_0_contract.json 5701 + => ./compiled_contracts/CXTZ/step_000_cont_0_contract.py 760 diff --git a/compiled_contracts/CXTZ/step_000_cont_0_contract.json b/compiled_contracts/CXTZ/step_000_cont_0_contract.json index 5cd01b25..cff3c74a 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_contract.json +++ b/compiled_contracts/CXTZ/step_000_cont_0_contract.json @@ -22,6 +22,18 @@ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%administrator" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowIndex" ] }, { "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%borrowRatePerBlock" ] }, { "prim": "pair", "args": [ @@ -29,42 +41,20 @@ "prim": "big_map", "args": [ { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ], - "annots": [ "%accountBorrows" ] - }, - { - "prim": "pair", - "args": [ - { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] }, - { "prim": "nat", "annots": [ "%balance" ] } - ] - } - ] - } + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ] } ], - "annots": [ "%balances" ] + "annots": [ "%borrows" ] }, - { "prim": "nat", "annots": [ "%borrowIndex" ] } + { "prim": "address", "annots": [ "%comptroller" ] } ] } ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] }, { "prim": "nat", "annots": [ "%borrowRatePerBlock" ] } ] }, + }, { "prim": "pair", "args": [ - { "prim": "address", "annots": [ "%comptroller" ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%expScale" ] }, { "prim": "nat", "annots": [ "%halfExpScale" ] } ] } + { "prim": "nat", "annots": [ "%expScale" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%halfExpScale" ] }, { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] } ] } ] } ] @@ -77,7 +67,32 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] }, { "prim": "address", "annots": [ "%interestRateModel" ] } ] }, + { + "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": [ @@ -90,7 +105,32 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] }, { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] } ] }, + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] }, + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] }, + { + "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": "pair", "args": [ @@ -152,38 +192,26 @@ "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ - { "prim": "address" }, + { "prim": "nat" }, { "prim": "pair", "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { "prim": "nat" } + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "address" } ] } ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] } ] @@ -194,7 +222,25 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, + { + "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" } ] } ] @@ -204,7 +250,25 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, + { + "prim": "pair", + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "nat" }, + { + "prim": "big_map", + "args": [ + { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } ] } + ] + } + ] + } + ] + }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] } @@ -228,38 +292,26 @@ "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ - { "prim": "address" }, + { "prim": "nat" }, { "prim": "pair", "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { "prim": "nat" } + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "address" } ] } ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] } ] @@ -270,7 +322,25 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, + { + "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" } ] } ] @@ -280,7 +350,25 @@ { "prim": "pair", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, + { + "prim": "pair", + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "nat" }, + { + "prim": "big_map", + "args": [ + { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } ] } + ] + } + ] + } + ] + }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] } @@ -481,15 +569,22 @@ { "prim": "or", "args": [ - { "prim": "nat", "annots": [ "%reduceReserves" ] }, + { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }, { "prim": "or", "args": [ - { "prim": "nat", "annots": [ "%repayBorrow" ] }, { "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" ] } ] } @@ -503,15 +598,18 @@ { "prim": "or", "args": [ + { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { - "prim": "pair", + "prim": "or", "args": [ - { "prim": "address", "annots": [ "%borrower" ] }, - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%liquidator" ] }, { "prim": "nat", "annots": [ "%seizeTokens" ] } ] } - ], - "annots": [ "%seize" ] - }, - { "prim": "or", "args": [ { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { "prim": "nat", "annots": [ "%setReserveFactor" ] } ] } + { "prim": "nat", "annots": [ "%setReserveFactor" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], + "annots": [ "%sweepFA12" ] + } + ] + } ] }, { @@ -520,11 +618,6 @@ { "prim": "or", "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], - "annots": [ "%sweepFA12" ] - }, { "prim": "pair", "args": [ @@ -532,13 +625,13 @@ { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] } ], "annots": [ "%sweepFA2" ] - } + }, + { "prim": "bool", "annots": [ "%sweepMutez" ] } ] }, { "prim": "or", "args": [ - { "prim": "bool", "annots": [ "%sweepMutez" ] }, { "prim": "pair", "args": [ @@ -546,6 +639,11 @@ { "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" ] } ] } @@ -565,508 +663,47 @@ "prim": "code", "args": [ [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { - "prim": "CAST", + "prim": "IF_LEFT", "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "or", - "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": "address" }, { "prim": "address" } ] } ] }, - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, + [ + { "prim": "DUP" }, + { + "prim": "IF_LEFT", + "args": [ + [ { - "prim": "or", + "prim": "IF_LEFT", "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "nat" }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "contract", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] }, { "prim": "contract", "args": [ { "prim": "nat" } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } - ] - } - ] - }, + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], + [ { - "prim": "or", + "prim": "IF_LEFT", "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ] ] } ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ], + [ { - "prim": "or", + "prim": "IF_LEFT", "args": [ - { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "nat" } ] } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "bool" }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, - { - "prim": "pair", - "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - }, - { - "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": "address" }, { "prim": "address" } ] } ] }, - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] - } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, - { - "prim": "pair", - "args": [ - { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "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": "set", "args": [ { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] - } - ] - } - ] - }, - { "prim": "nat" } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, - { - "prim": "pair", - "args": [ - { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { "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": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ] ] } ] @@ -1145,9 +782,7 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1212,7 +847,7 @@ }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "702" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, @@ -1301,9 +936,7 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1328,8 +961,8 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1356,15 +989,14 @@ "prim": "IF", "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, @@ -1437,12 +1069,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -1454,32 +1084,76 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -1489,7 +1163,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -1503,7 +1178,7 @@ ], "annots": [ "%borrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "199" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -1513,9 +1188,7 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, { "prim": "RENAME" }, @@ -1554,8 +1227,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -1565,18 +1238,17 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -1588,7 +1260,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1596,7 +1268,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1610,9 +1282,9 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, @@ -1621,31 +1293,31 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "193" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "210" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "ADD" }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, @@ -1654,14 +1326,8 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "194" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "211" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -1669,8 +1335,8 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP" }, @@ -1688,8 +1354,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1699,21 +1365,20 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -1725,7 +1390,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1733,7 +1398,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1753,12 +1418,9 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "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" } ] }, @@ -1780,19 +1442,14 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -1816,7 +1473,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1868,9 +1525,9 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1892,20 +1549,20 @@ "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "541" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "UPDATE", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1915,21 +1572,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -1941,7 +1597,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1949,7 +1605,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1969,9 +1625,8 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -1993,19 +1648,14 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -2029,7 +1679,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2063,9 +1713,9 @@ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -2075,18 +1725,18 @@ "args": [ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "517" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -2096,32 +1746,26 @@ "args": [ [ { "prim": "DROP" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "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": "518" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [] @@ -2142,9 +1786,9 @@ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -2153,22 +1797,18 @@ "args": [ [ { "prim": "DROP" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] } + { "prim": "CDR" } ], [] ] @@ -2196,12 +1836,9 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "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" } ] }, @@ -2223,19 +1860,14 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -2259,7 +1891,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2273,21 +1905,18 @@ [] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "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": "489" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2326,9 +1955,7 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, @@ -2342,7 +1969,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -2368,7 +1996,7 @@ ], "annots": [ "%liquidateBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "339" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -2432,8 +2060,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -2443,21 +2071,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -2469,7 +2096,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2477,7 +2104,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2490,9 +2117,7 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, @@ -2549,9 +2174,7 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, @@ -2577,9 +2200,9 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, @@ -2588,18 +2211,16 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "246" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -2610,40 +2231,36 @@ ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "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": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -2651,21 +2268,20 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, @@ -2676,18 +2292,19 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "251" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -2697,11 +2314,12 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2714,7 +2332,8 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, @@ -2733,12 +2352,9 @@ [] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "VIEW", "args": [ { "string": "balanceOf" }, { "prim": "nat" } ] }, { @@ -2755,9 +2371,7 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "LIQUIDATE_SEIZE_TOO_MUCH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", @@ -2775,11 +2389,12 @@ ], "annots": [ "%seize" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "364" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, @@ -2841,12 +2456,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -2858,42 +2471,87 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "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": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -2907,7 +2565,7 @@ ], "annots": [ "%mintAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "89" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -2930,9 +2588,7 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, { "prim": "RENAME" }, @@ -2967,9 +2623,7 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, { "prim": "RENAME" }, @@ -2986,9 +2640,8 @@ ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -3008,19 +2661,14 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -3042,7 +2690,7 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { @@ -3053,17 +2701,17 @@ [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "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": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3071,6 +2719,14 @@ "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" } ] }, @@ -3078,9 +2734,9 @@ { "prim": "ADD" }, { "prim": "UPDATE", "args": [ { "int": "10" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3090,21 +2746,21 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "85" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "99" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -3126,7 +2782,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -3143,7 +2800,7 @@ ], "annots": [ "%redeemAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "159" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -3155,9 +2812,8 @@ { "prim": "CONS" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -3179,19 +2835,14 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -3215,7 +2866,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3231,7 +2882,7 @@ }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, @@ -3241,126 +2892,161 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, - { "prim": "BALANCE" }, - { "prim": "RENAME" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, - { "prim": "GE" }, + { "prim": "GT" }, { "prim": "IF", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" } + ], + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "DROP" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "BALANCE" }, + { "prim": "RENAME" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "28" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "MUL" }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "NEQ" }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "UPDATE", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "DUP" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "154" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "8" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "155" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "28" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "MUL" }, - { "prim": "UNIT" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], - [ - { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "NEQ" }, - { - "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + "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": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -3377,7 +3063,7 @@ ], "annots": [ "%redeemAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "159" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "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" }, @@ -3387,14 +3073,11 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -3404,9 +3087,9 @@ "prim": "IF", "args": [ [ - { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, @@ -3416,19 +3099,14 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -3452,7 +3130,7 @@ { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3463,204 +3141,262 @@ ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" } ] + [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "270" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "280" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, - { "prim": "BALANCE" }, - { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "COMPARE" }, - { "prim": "GE" }, { - "prim": "IF", + "prim": "IF_NONE", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] + [ { "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": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "DROP" }, - { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, + { "prim": "ADD" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "GT" }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "UPDATE", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "DUP" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "154" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "8" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "155" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" } + ], + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "28" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "MUL" }, - { "prim": "UNIT" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ] - ] - } - ] - ] - } - ], - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "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": "CDR" }, - { "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": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] }, - { "prim": "UPDATE" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "UNIT" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" }, - { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, - { "prim": "RENAME" }, - { "prim": "AMOUNT" }, - { "prim": "RENAME" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "BALANCE" }, + { "prim": "RENAME" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "28" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "MUL" }, + { "prim": "UNIT" }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "CDR" }, + { "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": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, + { "prim": "RENAME" }, + { "prim": "AMOUNT" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], [ { "prim": "SELF_ADDRESS" }, { "prim": "RENAME" }, @@ -3672,12 +3408,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -3689,32 +3423,79 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -3725,7 +3506,8 @@ { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -3748,7 +3530,7 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "258" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, @@ -3778,8 +3560,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -3789,21 +3571,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -3815,7 +3596,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3823,7 +3604,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -3835,9 +3616,7 @@ ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, @@ -3892,9 +3671,7 @@ ], [ { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, @@ -3920,9 +3697,9 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, @@ -3931,17 +3708,15 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "246" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -3952,24 +3727,26 @@ ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, @@ -3978,14 +3755,8 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -3993,20 +3764,19 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "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": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, @@ -4017,18 +3787,19 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "251" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4036,15 +3807,14 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SENDER" }, @@ -4055,7 +3825,14 @@ [] ] } - ], + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ [ { "prim": "SELF_ADDRESS" }, { "prim": "RENAME" }, @@ -4067,12 +3844,10 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "MEM" }, @@ -4084,32 +3859,79 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -4120,7 +3942,8 @@ { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -4143,14 +3966,11 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "258" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, @@ -4177,8 +3997,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -4188,21 +4008,20 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -4214,7 +4033,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -4222,7 +4041,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4235,9 +4054,7 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, @@ -4294,9 +4111,7 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, @@ -4322,9 +4137,9 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, @@ -4333,18 +4148,16 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "246" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, @@ -4355,40 +4168,36 @@ ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "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": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -4396,21 +4205,20 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, @@ -4421,18 +4229,19 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "251" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4442,11 +4251,12 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -4457,195 +4267,325 @@ [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] } - ] - ] - } - ] - ] - } - ] - ] - } - ], - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, - { - "prim": "IF", - "args": [ + ], [ - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, + { "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": "NOT" }, + { "prim": "RENAME" }, { - "prim": "PUSH", + "prim": "IF", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } - ] - }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" } - ], - [] - ] - }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { - "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "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": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "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": "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "8" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "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": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] + "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": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "BALANCE" }, + { "prim": "RENAME" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "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": "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": "RENAME" }, + { + "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": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "334" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, { "prim": "SWAP" }, + { "prim": "UPDATE" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, - { "prim": "BALANCE" }, - { "prim": "RENAME" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, + { "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": "335" } ] }, { "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": "RENAME" }, @@ -4656,210 +4596,97 @@ ] }, { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] - } - ], - [] + { "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": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "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": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, { "prim": "RENAME" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "UPDATE", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "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": "317" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, { "prim": "CAR" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "290" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, + { "prim": "CDR" }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, - { "prim": "SWAP" }, - { "prim": "UPDATE" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "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": "318" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "8" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "291" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, - { "prim": "SOME" }, { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] } + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, + { "prim": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } ], [ { "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "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": "CDR" }, - { "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": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, - { "prim": "UPDATE" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "UNIT" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" }, - { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, - { "prim": "RENAME" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], - [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -4912,23 +4739,10 @@ { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } - ] - ] - } - ] - ] - } - ], - [ - { - "prim": "IF_LEFT", - "args": [ - [ - { - "prim": "IF_LEFT", - "args": [ + ], [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", @@ -4943,9 +4757,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "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" }, @@ -4958,9 +4770,24 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } - ], + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", @@ -4995,9 +4822,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "38" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "NIL", @@ -5039,7 +4864,8 @@ { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } - ] + ], + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_XTZ" } ] }, { "prim": "FAILWITH" } ] ] } ], @@ -5047,13 +4873,10 @@ { "prim": "IF_LEFT", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_XTZ" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "SENDER" }, { "prim": "RENAME" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5065,23 +4888,23 @@ { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "387" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "387" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "GE" } @@ -5102,15 +4925,11 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "NOT" }, @@ -5121,32 +4940,79 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "PUSH", "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, - { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } ] }, - { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "SOME" }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "8" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -5156,7 +5022,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ @@ -5170,14 +5037,11 @@ ], "annots": [ "%transferAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "409" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "427" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, @@ -5188,19 +5052,17 @@ { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "396" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GE" }, { @@ -5209,37 +5071,38 @@ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "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": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "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": "398" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "CAR" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "399" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "398" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, @@ -5249,22 +5112,22 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "400" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "ADD" }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, @@ -5279,9 +5142,9 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5293,73 +5156,73 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "402" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "13" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "403" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "402" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5369,9 +5232,9 @@ [ { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5383,24 +5246,24 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "405" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "422" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } ], @@ -5411,6 +5274,44 @@ [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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" } ] } ] ] } @@ -5458,9 +5359,9 @@ { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -5471,13 +5372,13 @@ { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "471" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" } ], [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -5496,8 +5397,8 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -5506,17 +5407,16 @@ [ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -5532,12 +5432,12 @@ { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -5555,7 +5455,7 @@ { "string": "comptroller" }, { "prim": "unit" }, { "prim": "address" }, - [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] } ] + [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] } ] ] }, { @@ -5566,12 +5466,9 @@ { "prim": "nat" }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "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" } ] }, @@ -5584,22 +5481,20 @@ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -5616,7 +5511,7 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } @@ -5647,9 +5542,9 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -5667,19 +5562,19 @@ { "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": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "541" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, { "prim": "UPDATE", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "MEM" }, { @@ -5688,17 +5583,16 @@ [ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "596" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ @@ -5710,12 +5604,12 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "599" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], [ { "prim": "DROP" } ] ] @@ -5733,9 +5627,8 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, @@ -5756,17 +5649,14 @@ { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -5783,7 +5673,7 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "639" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } diff --git a/compiled_contracts/CXTZ/step_000_cont_0_contract.py b/compiled_contracts/CXTZ/step_000_cont_0_contract.py index bf8d2d83..0915dbf3 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_contract.py +++ b/compiled_contracts/CXTZ/step_000_cont_0_contract.py @@ -2,36 +2,39 @@ class Contract(sp.Contract): def __init__(self): - self.init_type(sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, balances = sp.TBigMap(sp.TAddress, sp.TRecord(accountBorrows = sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal")), approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("accountBorrows", ("approvals", "balance")))), borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, comptroller = sp.TAddress, expScale = sp.TNat, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", "activeOperations"), ("administrator", ("balances", "borrowIndex"))), (("borrowRateMaxMantissa", "borrowRatePerBlock"), ("comptroller", ("expScale", "halfExpScale")))), ((("initialExchangeRateMantissa", "interestRateModel"), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", "supplyRatePerBlock"), ("totalBorrows", ("totalReserves", "totalSupply"))))))) + 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, expScale = sp.TNat, 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, 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")), ("expScale", ("halfExpScale", "initialExchangeRateMantissa")))), ((("interestRateModel", ("ledger", "metadata")), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "token_metadata")), ("totalBorrows", ("totalReserves", "totalSupply"))))))) self.init(accrualBlockNumber = 0, activeOperations = sp.set([]), - administrator = sp.address('KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq'), - balances = {}, + administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), borrowIndex = 1000000000000000000, - borrowRateMaxMantissa = 80000000000, + borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, - comptroller = sp.address('KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW'), + borrows = {}, + comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), expScale = 1000000000000000000, halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, - interestRateModel = sp.address('KT1AtJQgU4zEp2wgyWRK7DqdDiPkWBodNiwz'), + interestRateModel = sp.address('KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd'), + ledger = {}, + metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, + token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x36'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e672058545a'), 'symbol' : sp.bytes('0xea9cb058545a')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) - @sp.entry_point + @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.entry_point + @sp.entrypoint def accrueInterest(self, params): sp.set_type(params, sp.TUnit) sp.if sp.level != self.data.accrualBlockNumber: @@ -39,24 +42,24 @@ def accrueInterest(self, params): self.data.accrualBlockNumber = sp.level sp.else: self.data.activeOperations.add(8) - sp.transfer(sp.self_entry_point('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entry_point='accrueInterestInternal').open_some()) + sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) - @sp.entry_point + @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 = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), 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, entry_point='getBorrowRate').open_some()) + sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), 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.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal')) + 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.entry_point + @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') @@ -68,52 +71,56 @@ def addReservesInternal(self, params): sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params.addAmount, 'CT_INVALID_MUTEZ') self.data.totalReserves += params.addAmount - @sp.entry_point + @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.verify((self.data.balances[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.balances[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') - sp.verify((self.data.balances[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') sp.if params.value == 0: - del self.data.balances[sp.sender].approvals[params.spender] + del self.data.ledger[sp.sender].approvals[params.spender] sp.else: - self.data.balances[sp.sender].approvals[params.spender] = params.value + self.data.ledger[sp.sender].approvals[params.spender] = params.value - @sp.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some()) + 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH') sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') sp.if False: - sp.transfer(sp.unit, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination')) + sp.transfer(sp.unit, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entrypoint='receive').open_some(message = 'bad contract destination')) sp.else: sp.send(sp.sender, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1))) borrowBalance = sp.local("borrowBalance", 0) - sp.if self.data.balances.contains(sp.sender): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) + 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.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params - self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[sp.sender].principal = borrowBalance.value + params + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex self.data.totalBorrows += params - @sp.entry_point + @sp.entrypoint def borrowBalanceStored(self, params): - sp.set_type(sp.fst(params), sp.TAddress) - borrowBalance = sp.local("borrowBalance", 0) - sp.if self.data.balances.contains(sp.fst(params)): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) - sp.if borrowSnapshot.value.principal > 0: - borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - __s1 = sp.local("__s1", borrowBalance.value) + __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) sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) - @sp.entry_point + @sp.entrypoint def doAccrueInterest(self, params): sp.set_type(params, sp.TNat) sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM') @@ -124,64 +131,39 @@ def doAccrueInterest(self, params): 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_729 = sp.local("compute_CToken_729", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(compute_CToken_729.value.mantissa * self.data.totalBorrows, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_729.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_731 = sp.local("compute_CToken_731", (compute_CToken_729.value.mantissa * self.data.totalBorrows) // self.data.expScale) - self.data.totalBorrows = compute_CToken_731.value + self.data.totalBorrows + sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_763.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_731.value, sp.TNat) + sp.set_type(compute_CToken_763.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_731.value, sp.TNat) - sp.set_type(self.data.reserveFactorMantissa * compute_CToken_731.value, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_731.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_731.value) // self.data.expScale) + self.data.totalReserves - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_763.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_761.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_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_729.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_729.value.mantissa * self.data.borrowIndex, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_729.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.borrowIndex = ((compute_CToken_729.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_761.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex self.data.accrualBlockNumber = sp.level - @sp.entry_point + @sp.entrypoint def exchangeRateStored(self, params): - sp.set_type(sp.fst(params), sp.TUnit) - excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) - sp.if self.data.totalSupply > 0: - sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat) - sp.set_type(0, sp.TNat) - sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) - sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - __s2 = sp.local("__s2", excRate.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) - sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) - - @sp.entry_point - def getAccountSnapshot(self, params): - compute_CToken_533 = sp.local("compute_CToken_533", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) - sp.if self.data.balances.contains(sp.fst(params)): - sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') - compute_CToken_533.value.cTokenBalance = self.data.balances[sp.fst(params)].balance - borrowBalance = sp.local("borrowBalance", 0) - sp.if self.data.balances.contains(sp.fst(params)): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) - sp.if borrowSnapshot.value.principal > 0: - borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - compute_CToken_533.value.borrowBalance = borrowBalance.value + __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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat) @@ -193,84 +175,123 @@ def getAccountSnapshot(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - compute_CToken_533.value.exchangeRateMantissa = excRate.value - __s3 = sp.local("__s3", compute_CToken_533.value) + sp.result(excRate.value) + sp.set_type(sp.snd(params), sp.TContract(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_565 = sp.local("compute_CToken_565", 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_565.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_565.value.borrowBalance = borrowBalance.value + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + compute_CToken_565.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_565.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.entry_point + @sp.entrypoint def getAllowance(self, params): - result = sp.local("result", 0) - sp.if self.data.balances.contains(sp.fst(params).owner): - sp.if self.data.balances[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): - result.value = self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender] - __s4 = sp.local("__s4", result.value) + __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.entry_point + @sp.entrypoint def getBalance(self, params): - result = sp.local("result", 0) - sp.if self.data.balances.contains(sp.fst(params)): - result.value = self.data.balances[sp.fst(params)].balance - __s5 = sp.local("__s5", result.value) + __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.entry_point + @sp.entrypoint def getBalanceOfUnderlying(self, params): - sp.set_type(sp.fst(params), sp.TAddress) - excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) - sp.if self.data.totalSupply > 0: - sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat) - sp.set_type(0, sp.TNat) - sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) - sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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.balances[sp.fst(params)].balance, sp.TNat) - sp.set_type(excRate.value * self.data.balances[sp.fst(params)].balance, sp.TNat) - sp.set_type(sp.record(mantissa = excRate.value * self.data.balances[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - __s6 = sp.local("__s6", (excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale) + __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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 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) sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) - @sp.entry_point + @sp.entrypoint def getCash(self, params): - sp.set_type(sp.fst(params), sp.TUnit) - __s7 = sp.local("__s7", sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit))) + __s7 = sp.bind_block("__s7"): + with __s7: + sp.set_type(sp.fst(params), sp.TUnit) + sp.result(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit))) sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) - @sp.entry_point + @sp.entrypoint def getTotalSupply(self, params): - sp.set_type(sp.fst(params), sp.TUnit) - __s8 = sp.local("__s8", self.data.totalSupply) + __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.entry_point + @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.entry_point + @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, entry_point='liquidateBorrowAllowed').open_some()) + 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.balances.contains(params.borrower): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) + 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 sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > sp.min(borrowBalance.value, params.repayAmount): @@ -279,23 +300,25 @@ def liquidateBorrow(self, params): sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ') sp.set_type(borrowBalance.value, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - sp.if self.data.balances[params.borrower].accountBorrows.principal == 0: - sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entry_point='removeFromLoans').open_some()) + 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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, entry_point='seize').open_some()) + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some()) + 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.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > params: sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - params), sp.TNat), sp.mutez(1))) @@ -318,8 +341,8 @@ def mint(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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")) @@ -327,16 +350,17 @@ def mint(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.value + sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') self.data.totalSupply += amount.value - self.data.balances[sp.sender].balance += amount.value + self.data.ledger[sp.sender].balance += amount.value - @sp.entry_point + @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, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) + 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 @@ -358,8 +382,8 @@ def redeem(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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")) @@ -367,8 +391,8 @@ def redeem(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if False: @@ -389,8 +413,12 @@ def redeem(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + 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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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")) @@ -398,25 +426,26 @@ def redeem(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params - sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= 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.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') - sp.if False: - sp.transfer(sp.unit, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination')) - sp.else: - sp.send(sp.sender, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1))) + sp.if (redeem_amount.value > 0) & (redeem_tokens.value > 0): + sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= 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.if False: + sp.transfer(sp.unit, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entrypoint='receive').open_some(message = 'bad contract destination')) + sp.else: + sp.send(sp.sender, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1))) - @sp.entry_point + @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, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) + 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 @@ -438,8 +467,8 @@ def redeemUnderlying(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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")) @@ -447,8 +476,8 @@ def redeemUnderlying(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if True: @@ -469,8 +498,12 @@ def redeemUnderlying(self, params): 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_933 = sp.local("compute_CToken_933", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_933.value + 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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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")) @@ -478,30 +511,31 @@ def redeemUnderlying(self, params): 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_936 = sp.local("compute_CToken_936", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_936.value + compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params - sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= 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.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') - sp.if False: - sp.transfer(sp.unit, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination')) - sp.else: - sp.send(sp.sender, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1))) + sp.if (redeem_amount.value > 0) & (redeem_tokens.value > 0): + sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= 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.if False: + sp.transfer(sp.unit, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entrypoint='receive').open_some(message = 'bad contract destination')) + sp.else: + sp.send(sp.sender, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1))) - @sp.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal')) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) - @sp.entry_point + @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') @@ -512,27 +546,29 @@ def reduceReservesInternal(self, params): sp.set_type(params, sp.TNat) self.data.totalReserves = sp.as_nat(self.data.totalReserves - params, message = 'SUBTRACTION_UNDERFLOW') sp.if True: - sp.transfer(sp.unit, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, self.data.administrator, entry_point='receive').open_some(message = 'bad contract destination')) + sp.transfer(sp.unit, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1)), sp.contract(sp.TUnit, self.data.administrator, entrypoint='receive').open_some(message = 'bad contract destination')) sp.else: sp.send(self.data.administrator, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1))) - @sp.entry_point + @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.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = 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, entry_point='repayBorrowAllowed').open_some()) + 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.balances.contains(sp.sender): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) + 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 sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > sp.min(borrowBalance.value, params): @@ -541,25 +577,27 @@ def repayBorrow(self, params): sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params), 'CT_INVALID_MUTEZ') sp.set_type(borrowBalance.value, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') - sp.if self.data.balances[sp.sender].accountBorrows.principal == 0: - sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entry_point='removeFromLoans').open_some()) + 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.entry_point + @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.balances.contains(sp.sender)): - self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, 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, entry_point='repayBorrowAllowed').open_some()) + 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.balances.contains(params.borrower): - borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) + 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 sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > sp.min(borrowBalance.value, params.repayAmount): @@ -568,23 +606,25 @@ def repayBorrowBehalf(self, params): sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ') sp.set_type(borrowBalance.value, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') - sp.if self.data.balances[params.borrower].accountBorrows.principal == 0: - sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entry_point='removeFromLoans').open_some()) + 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.entry_point + @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.balances.contains(params.liquidator)): - self.data.balances[params.liquidator] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) + 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.balances[params.borrower].balance, sp.TNat) + 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) @@ -613,29 +653,29 @@ def seize(self, params): 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.balances[params.liquidator].balance, 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.balances[params.borrower].balance = sp.as_nat(self.data.balances[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') - self.data.balances[params.liquidator].balance += sp.as_nat(params.seizeTokens - 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.entry_point + @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.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal')) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) - @sp.entry_point + @sp.entrypoint def setInterestRateModelInternal(self, params): sp.set_type(params, sp.TAddress) sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') @@ -643,22 +683,22 @@ def setInterestRateModelInternal(self, params): self.data.activeOperations.remove(9) self.data.interestRateModel = params - @sp.entry_point + @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.entry_point + @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_entry_point('accrueInterest')) - sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal')) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) - @sp.entry_point + @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') @@ -667,17 +707,17 @@ def setReserveFactorInternal(self, params): sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR') self.data.reserveFactorMantissa = params - @sp.entry_point + @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, entry_point='transfer').open_some()) + 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.entry_point + @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.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), 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, entry_point='transfer').open_some()) + 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.entry_point + @sp.entrypoint def sweepMutez(self, params): sp.set_type(params, sp.TBool) sp.verify(False, 'CT_SWEEP_XTZ') @@ -686,24 +726,32 @@ def sweepMutez(self, params): sp.else: sp.send(self.data.administrator, sp.balance) - @sp.entry_point + @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.balances[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') - sp.if ~ (self.data.balances.contains(params.to_)): - self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) - sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, 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, entry_point='transferAllowed').open_some()) + 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.balances[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') - self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value) - self.data.balances[params.to_].balance += params.value + sp.verify(self.data.ledger[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') + 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.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value) - sp.if self.data.balances[params.from_].approvals[sp.sender] == 0: - del self.data.balances[params.from_].approvals[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.entry_point + @sp.entrypoint def updateProtocolSeizeShare(self, params): sp.set_type(params, sp.TNat) sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') diff --git a/compiled_contracts/CXTZ/step_000_cont_0_contract.tz b/compiled_contracts/CXTZ/step_000_cont_0_contract.tz index da434e3b..b67c3d31 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_contract.tz +++ b/compiled_contracts/CXTZ/step_000_cont_0_contract.tz @@ -1,104 +1,103 @@ -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 (address %setComptroller) (address %setInterestRateModelInternal))) (or (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 nat)) (pair %exchangeRateStored unit (contract 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 nat)) (pair %getCash unit (contract 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 (nat %reduceReserves) (or (nat %repayBorrow) (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount))))) (or (or (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens))) (or (address %setInterestRateModel) (nat %setReserveFactor))) (or (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress)))) (or (bool %sweepMutez) (pair %transfer (address %from) (pair (address %to) (nat %value))))))))); -storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))))); +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 (address %setComptroller) (address %setInterestRateModelInternal))) (or (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 nat)) (pair %exchangeRateStored unit (contract 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 nat)) (pair %getCash unit (contract 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))))); code { - CAST (pair (or (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or nat (or (pair address (contract nat)) (pair unit (contract nat))))) (or (or (pair address (contract (pair (pair address nat) (pair nat nat)))) (or (pair (pair address address) (contract nat)) (pair address (contract nat)))) (or (or (pair address (contract nat)) (pair unit (contract nat))) (or (pair unit (contract nat)) (pair address (pair address nat)))))) (or (or (or nat (or nat nat)) (or nat (or nat (pair address nat)))) (or (or (pair address (pair address nat)) (or address nat)) (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))))))) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))))))); # pair (or (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or nat (or (pair address (contract nat)) (pair unit (contract nat))))) (or (or (pair address (contract (pair (pair address nat) (pair nat nat)))) (or (pair (pair address address) (contract nat)) (pair address (contract nat)))) (or (or (pair address (contract nat)) (pair unit (contract nat))) (or (pair unit (contract nat)) (pair address (pair address nat)))))) (or (or (or nat (or nat nat)) (or nat (or nat (pair address nat)))) (or (or (pair address (pair address nat)) (or address nat)) (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))))))) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))))) - UNPAIR 3; # or (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or nat (or (pair address (contract nat)) (pair unit (contract nat))))) (or (or (pair address (contract (pair (pair address nat) (pair nat nat)))) (or (pair (pair address address) (contract nat)) (pair address (contract nat)))) (or (or (pair address (contract nat)) (pair unit (contract nat))) (or (pair unit (contract nat)) (pair address (pair address nat)))))) (or (or (or nat (or nat nat)) (or nat (or nat (pair address nat)))) (or (or (pair address (pair address nat)) (or address nat)) (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat))))))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_LEFT { - DUP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP; # @parameter.left : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_LEFT { IF_LEFT { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 1; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 2; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 3; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 4; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 5; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 6; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 7; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 8; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 9; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 10; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : nat : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int -1; # int : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EXEC; # pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @parameter.left (pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EXEC; # pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT @@ -109,1703 +108,1666 @@ code { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - PUSH nat 0; # nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : unit : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : unit : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # unit : @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # @level : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # @parameter%accrueInterest : @level : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @level : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 8; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 8; # nat : bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 702; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 735; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # set nat : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SIZE; # nat : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "OP_IN_PROGRESS"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %addReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # nat : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 11; # nat : bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %addReservesInternal; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # @parameter%addReserves : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @parameter%addReserves address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SELF_ADDRESS; # @self : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_FUNCTION"; # string : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_FUNCTION"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # set nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : set nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # set nat : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 11; # nat : set nat : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "OP_NOT_ACTIVE"; # string : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "OP_NOT_ACTIVE"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH bool False; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 11; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool False; # bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 11; # nat : bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair nat (set nat) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @parameter%addReservesInternal : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%addReservesInternal : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # address : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair nat address : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%addReservesInternal : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP; # @parameter%addReservesInternal : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair nat address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 9; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%addReservesInternal : nat : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 9; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NOT; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 199; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 217; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GE; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GE; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 28; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 28; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 193; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 210; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 12; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 10; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%borrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 9; # nat : @parameter%borrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 194; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 211; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%borrow : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%borrowBalanceStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 671; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 257; # int : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%exchangeRateStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { IF_LEFT { - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%getAccountSnapshot : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 541; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 573; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 3; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 3; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair address nat) (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair address nat : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : address : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : nat : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address nat) (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP 2; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP 2; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 671; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 257; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 4; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract (pair (pair address nat) (pair nat nat))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getAccountSnapshot : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - PUSH nat 0; # nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 517; # int : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 549; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair address address) (contract nat) : map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair address address : map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # address : map address nat : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%getAllowance : map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # address : map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address address) (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address address) (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 518; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair address address) (contract nat) : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair address address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%getAllowance : map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # address : map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 518; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair address address) (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getAllowance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 457; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 489; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getBalance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 671; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 257; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 489; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 521; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 61; # int : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 61; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getBalanceOfUnderlying : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - PUSH mutez 1; # mutez : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getCash : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getTotalSupply : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 339; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 357; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 6; # pair address (pair address nat) : address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # @parameter%liquidateBorrow : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP 3; # pair address (pair address nat) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 246; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 12; # pair address (pair address nat) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%liquidateBorrow : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair (nat %interestIndex) (nat %principal))) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair (nat %interestIndex) (nat %principal))) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 248; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair (nat %interestIndex) (nat %principal))) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 251; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 268; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 252; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 270; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : address : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : address : address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair nat (pair address address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair address (pair address nat) : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : pair address (pair address nat) : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : address : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : address : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair address (pair address nat) : address : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - VIEW "balanceOf" nat; # option nat : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "balanceOf" nat; # option nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "INVALID BALANCE OF VIEW"; # string : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "INVALID BALANCE OF VIEW"; # string : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GE; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%liquidateBorrow : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 364; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 382; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 7; # pair address (pair address nat) : address : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : address : address : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 7; # @parameter%liquidateBorrow : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : @some : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : @some : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # pair address (pair address nat) : address : @some : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # @parameter%liquidateBorrow : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT @@ -1814,2859 +1776,3003 @@ code { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NOT; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 89; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 104; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 6; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 671; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 257; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%mint : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_MINT_AMOUNT_IS_INVALID"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 85; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 99; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 9; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 159; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 177; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair address @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP 2; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 671; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 257; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%redeem : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 61; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 61; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - UNIT; # unit : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GE; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # nat : @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF - {} { - PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 154; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%redeem : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 155; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE + PUSH bool False; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF { - PUSH string "Insufficient balance"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + DUP 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + UNIT; # unit : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GE; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INSUFFICIENT_CASH"; # string : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # @parameter%redeem : @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient supply"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 172; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient balance"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 171; # int : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # @some : @some : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 28; # int : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 28; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%redeem : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 159; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 177; # int : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP 2; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 671; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 257; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - { - SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 7; # @parameter%redeemUnderlying : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 280; # int : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 281; # int : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GE; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} { - PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # nat : @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP 2; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 1; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%redeemUnderlying : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF - {} { - PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 154; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 155; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE + PUSH bool False; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF { - PUSH string "Insufficient balance"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + DUP 2; # @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + UNIT; # unit : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GE; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # @parameter%redeemUnderlying : @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient supply"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 172; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient balance"; # string : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 171; # int : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # @some : @some : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 28; # int : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE { - PUSH int 28; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP 2; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT - { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 12; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %reduceReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - } { IF_LEFT { - SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # set nat : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SIZE; # nat : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "OP_IN_PROGRESS"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 12; # nat : bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %reduceReservesInternal; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%reduceReserves : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + SELF_ADDRESS; # @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NOT; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 258; # int : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 276; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 4; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # list operation : pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP 3; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 246; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 263; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 12; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 248; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 265; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 251; # int : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 268; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 252; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - } + {}; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + IF_LEFT { - SELF_ADDRESS; # @self : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NOT; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # bool : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 258; # int : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 276; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address nat : pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 6; # pair address nat : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%repayBorrowBehalf : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # @parameter%repayBorrowBehalf : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair nat nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair address nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%repayBorrowBehalf : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP 3; # pair address nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 246; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 263; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 12; # pair address nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%repayBorrowBehalf : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 248; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 265; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 7; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 251; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 268; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 252; # int : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 270; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair address nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%repayBorrowBehalf : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # pair address nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - } - { - IF_LEFT - { - IF_LEFT - { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NOT; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - } - {}; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - VIEW "seizeAllowed" bool; # option bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "INVALID SEIZE ALLOWED VIEW"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED + SWAP; # @parameter%repayBorrowBehalf : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # @some : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} { - PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 231; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - { - CAR; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair nat address) (pair (option address) (pair nat nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat address : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%seize : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 8; # @parameter%seize : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "seizeAllowed" bool; # option bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH string "INVALID SEIZE ALLOWED VIEW"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 6; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @parameter%seize : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%seize : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%seize : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 231; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + { + CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + DROP; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # mutez : mutez : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + UNIT; # unit : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 671; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 61; # int : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + { + CAR; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 639; # int : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%seize : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 257; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 307; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } + {}; # @some : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE { - CAR; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - } - {}; # nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 7; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # nat : nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 61; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - { - CAR; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 9; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 317; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 290; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 318; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 334; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 335; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 10; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 10; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE + }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # set nat : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SIZE; # nat : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} { - PUSH int 291; # int : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "OP_IN_PROGRESS"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - } - {}; # @some : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 9; # nat : bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %setInterestRateModelInternal; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%setInterestRateModel : mutez : contract address : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_NOT_ADMIN"; # string : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # set nat : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SIZE; # nat : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "OP_IN_PROGRESS"; # string : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "OP_IN_PROGRESS"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 9; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %setInterestRateModelInternal; # @self : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract address : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract address : list operation : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # address : mutez : contract address : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 10; # nat : bool : set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # set nat : nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF %setReserveFactorInternal; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%setReserveFactor : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair nat (set nat) : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # set nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SIZE; # nat : nat : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF - {} + NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE { - PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 17; # int : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH bool True; # bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 10; # nat : bool : set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # set nat : nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : set nat : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF %setReserveFactorInternal; # @self : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + } + {}; # @some : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { IF_LEFT { - DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # address : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 12; # int : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 43; # int : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # address : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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))))))) : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 38; # int : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair nat (pair nat address) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (pair nat address) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_SWEEP_XTZ"; # string : @parameter%sweepMutez : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { - PUSH string "CT_SWEEP_XTZ"; # string : bool : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - { - SENDER; # @sender : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : address : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SENDER; # @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - PUSH bool True; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP; # @parameter%transfer : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 387; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 387; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GE; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GE; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "FA1.2_NotAllowed"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "FA1.2_NotAllowed"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTERNAL_CALL"; # string : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NOT; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # bool : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 8; # @parameter%transfer : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 409; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 427; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 5; # pair address (pair address nat) : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%transfer : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%transfer : nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%transfer : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 396; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 413; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GE; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "FA1.2_InsufficientBalance"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "FA1.2_InsufficientBalance"; # string : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 398; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 416; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 11; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 399; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 415; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 398; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 415; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 400; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 417; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair address (pair address nat) : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%transfer : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NEQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 402; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 11; # pair address (pair address nat) : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 12; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 13; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 12; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 403; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 420; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 403; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 420; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SUB; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - ISNAT; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 402; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 419; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : map address nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DIG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))) : list operation : pair address (pair address 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 8; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 405; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 422; # 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NONE nat; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : address : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # address : pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair nat (set nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair nat (set nat) : pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat)) : pair (pair nat nat) (pair address (pair nat nat)) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat))) : pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%transfer : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - NIL operation; # list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # @parameter%transfer : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # address : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + {} + { + PUSH string "CT_NOT_ADMIN"; # string : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (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) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # list operation : list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ITER { - CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : list operation - PAIR; # pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))))) : list operation - SWAP; # list operation : pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))))) - PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))))) + CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : list operation + PAIR; # pair (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))))) : list operation + SWAP; # list operation : pair (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))))) + PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))))) }; view "accrualBlockNumber" unit nat { - GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) + GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) CAR; # nat }; view "balanceOf" address nat { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : @parameter - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : @parameter - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : @parameter - SWAP; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) + DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 471; # int + PUSH int 503; # int FAILWITH; # FAILED } {}; # @some - GET 4; # nat + CDR; # nat } { - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : nat + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat DROP; # nat }; # nat }; view "borrowBalanceStoredView" address nat { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair (nat %interestIndex) (nat %principal) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair (nat %interestIndex) (nat %principal) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair (nat %interestIndex) (nat %principal) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @parameter : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # nat : pair (nat %interestIndex) (nat %principal) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (nat %interestIndex) (nat %principal) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : pair (nat %interestIndex) (nat %principal) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (nat %interestIndex) (nat %principal) - GET 6; # nat : nat : pair (nat %interestIndex) (nat %principal) - DIG 2; # pair (nat %interestIndex) (nat %principal) : nat : nat + SWAP; # nat : @some : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some + GET 5; # nat : nat : @some + DIG 2; # @some : nat : nat CDR; # nat : nat : nat MUL; # nat : nat EDIV; # option (pair nat nat) IF_NONE { - PUSH int 599; # int + PUSH int 631; # int FAILWITH; # FAILED } { @@ -4674,72 +4780,68 @@ view }; # nat } { - DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : nat + DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat DROP; # nat }; # nat } { - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : nat + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat DROP; # nat }; # nat }; view "comptroller" unit address { - GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) - GET 5; # address + GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) + GET 4; # address }; view "exchangeRateStoredView" unit nat { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (address %interestRateModel) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - LT; # bool : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED - }; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - GET 7; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat - GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat + }; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat GET 7; # nat : nat : nat : nat PUSH nat 0; # nat : nat : nat : nat : nat PUSH mutez 1; # mutez : nat : nat : nat : nat : nat @@ -4768,7 +4870,7 @@ view RENAME; # option nat : nat : nat IF_NONE { - PUSH int 639; # int : nat : nat + PUSH int 671; # int : nat : nat FAILWITH; # FAILED } {}; # @some : nat : nat @@ -4784,161 +4886,156 @@ view }; # nat } { - SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : nat + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat DROP; # nat }; # nat }; view "getAccountSnapshotView" address (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) { - UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 541; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 573; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 4; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 5; # big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET; # option (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 596; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 628; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - LT; # bool : pair (nat %interestIndex) (nat %principal) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP; # pair (nat %interestIndex) (nat %principal) : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex))) : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 6; # nat : nat : pair (nat %interestIndex) (nat %principal) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (nat %interestIndex) (nat %principal) : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 599; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + PUSH int 631; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } - {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (address %interestRateModel) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) + {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 8; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) - GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - GET 7; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) GET 7; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) @@ -4967,7 +5064,7 @@ view RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) IF_NONE { - PUSH int 639; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + PUSH int 671; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) FAILWITH; # FAILED } {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) @@ -4983,23 +5080,23 @@ view }; # 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) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : 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) UPDATE 4; # pair (pair @parameter nat) (pair nat nat) } { - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance)))) (nat %borrowIndex)))) (pair (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) (pair (address %comptroller) (pair (nat %expScale) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (address %interestRateModel)) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair (big_map address (pair (pair nat nat) (pair (map address nat) nat))) nat))) (pair (pair nat nat) (pair address (pair nat nat)))) (pair (pair (pair nat address) (pair (option address) (pair nat nat))) (pair (pair nat nat) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair (pair @parameter 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair 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 address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) DROP; # pair (pair @parameter nat) (pair nat nat) }; # pair (pair @parameter nat) (pair nat nat) }; \ No newline at end of file diff --git a/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv b/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv index 93d9bca3..df3b1e08 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,4337 -contract,20405 \ No newline at end of file +storage,4718 +contract,20582 \ No newline at end of file diff --git a/compiled_contracts/CXTZ/step_000_cont_0_storage.json b/compiled_contracts/CXTZ/step_000_cont_0_storage.json index 137c66ea..7ee4d9d8 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_storage.json +++ b/compiled_contracts/CXTZ/step_000_cont_0_storage.json @@ -11,19 +11,17 @@ "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, [] ] }, - { "prim": "Pair", "args": [ { "string": "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" }, { "prim": "Pair", "args": [ [], { "int": "1000000000000000000" } ] } ] } + { + "prim": "Pair", + "args": [ { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "800000000000" } ] } ] + } ] }, { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "80000000000" }, { "int": "0" } ] }, - { - "prim": "Pair", - "args": [ - { "string": "KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "500000000000000000" } ] } - ] - } + { "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ [], { "string": "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" } ] } ] }, + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1000000000000000000" } ] } ] } ] } ] @@ -34,14 +32,67 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1AtJQgU4zEp2wgyWRK7DqdDiPkWBodNiwz" } ] }, + { + "prim": "Pair", + "args": [ + { "string": "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" }, + { + "prim": "Pair", + "args": [ + [], + [ + { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "74657a6f732d73746f726167653a64617461" } ] }, + { + "prim": "Elt", + "args": [ + { "string": "data" }, + { + "bytes": "7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d" + } + ] + } + ] + ] + } + ] + }, { "prim": "Pair", "args": [ { "prim": "None" }, { "prim": "Pair", "args": [ { "int": "100000000000000" }, { "int": "50000000000000000" } ] } ] } ] }, { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "0" } ] }, + { + "prim": "Pair", + "args": [ + { "int": "1000000000000000000" }, + { + "prim": "Pair", + "args": [ + { "int": "0" }, + [ + { + "prim": "Elt", + "args": [ + { "int": "0" }, + { + "prim": "Pair", + "args": [ + { "int": "0" }, + [ + { "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "36" } ] }, + { "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54657a46696e20496e7465726573742d42656172696e672058545a" } ] }, + { "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "ea9cb058545a" } ] } + ] + ] + } + ] + } + ] + ] + } + ] + }, { "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } ] } @@ -81,15 +132,16 @@ { "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": "812" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "780" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -151,7 +203,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ @@ -165,7 +217,7 @@ ], "annots": [ "%getBorrowRate" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "711" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "744" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, @@ -223,20 +275,16 @@ { "prim": "COMPARE" }, { "prim": "NEQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "434" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { @@ -246,14 +294,14 @@ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1000" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "435" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "LT" } @@ -263,14 +311,14 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "437" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, @@ -281,13 +329,19 @@ "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], - [ { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ] + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" } + ] ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, - { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -296,9 +350,9 @@ [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -308,31 +362,31 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "CAR" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" } ], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -342,25 +396,25 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "444" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "CDR" }, { "prim": "SOME" }, { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "CAR" }, { "prim": "UPDATE" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" } ] ] @@ -391,20 +445,16 @@ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -426,20 +476,16 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "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": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -449,69 +495,68 @@ { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "727" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "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": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "ADD" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, - { "prim": "DUP" }, - { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "UPDATE", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "UPDATE", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -628,9 +673,7 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -663,28 +706,21 @@ { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "RENAME" }, { "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" } ] }, @@ -781,9 +817,7 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -797,12 +831,15 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -847,9 +884,7 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -873,9 +908,8 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -907,9 +941,7 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -974,9 +1006,7 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -998,8 +1028,8 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1009,14 +1039,10 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1073,9 +1099,7 @@ ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, diff --git a/compiled_contracts/CXTZ/step_000_cont_0_storage.py b/compiled_contracts/CXTZ/step_000_cont_0_storage.py index bd01b2e7..dc7553aa 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_storage.py +++ b/compiled_contracts/CXTZ/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq'), balances = {}, borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 80000000000, borrowRatePerBlock = 0, comptroller = sp.address('KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW'), expScale = 1000000000000000000, halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1AtJQgU4zEp2wgyWRK7DqdDiPkWBodNiwz'), pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file +sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, borrows = {}, comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), expScale = 1000000000000000000, halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd'), ledger = {}, metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x36'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e672058545a'), 'symbol' : sp.bytes('0xea9cb058545a')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file diff --git a/compiled_contracts/CXTZ/step_000_cont_0_storage.tz b/compiled_contracts/CXTZ/step_000_cont_0_storage.tz index 638fdba0..cec49009 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_storage.tz +++ b/compiled_contracts/CXTZ/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" (Pair {} 1000000000000000000))) (Pair (Pair 80000000000 0) (Pair "KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW" (Pair 1000000000000000000 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 "KT1AtJQgU4zEp2wgyWRK7DqdDiPkWBodNiwz") (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 0) (Pair 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; GET 3; GET 3; IF_NONE { PUSH int 780; FAILWITH } {}; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CDR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 711; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 434; FAILWITH } {}; GET 3; SWAP; DUP; DUG 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 435; FAILWITH } {}; GET 3; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; CAR; CAR; GET 5; SENDER; RENAME; GET; IF_NONE { PUSH int 437; FAILWITH } {}; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { DUP; CDR; PUSH nat 0; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; DUP; CDR; PUSH nat 0; COMPARE; EQ; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 442; FAILWITH } {}; DUP; GET 3; NONE nat; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR } { SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 444; FAILWITH } {}; DUP; GET 3; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 3; CAR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 727; FAILWITH } {}; SWAP; DUP; DUG 2; MUL; DUP 3; CAR; GET 7; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DIG 3; DUP; GET 7; DUP 3; ADD; UPDATE 7; DUP; DUP; GET 9; SWAP; DUP; DUG 6; CAR; GET 7; DUP 4; DIG 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 9; DUP; DUG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DUP 9; CAR; CAR; GET 6; DUP 10; CAR; GET 7; DIG 10; CAR; CAR; GET 6; DUP 10; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; SWAP; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; SWAP; DUP; DUG 2; GET 9; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; SWAP; DUP; DUG 2; SWAP; DUP; DUG 2; DIG 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; 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; GET 3; SENDER; RENAME; 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 } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; 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 } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CAR; DIG 4; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; 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 10 { 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; SWAP; DUP; DUG 2; GET 5; CAR; SWAP; DUP; DUG 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 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 } {} } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; SENDER; RENAME; 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 +(Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" (Pair 1000000000000000000 800000000000))) (Pair (Pair 0 (Pair {} "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG")) (Pair 1000000000000000000 (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672058545a; Elt "symbol" 0xea9cb058545a})})) (Pair 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; 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; RENAME; SENDER; RENAME; 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 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; 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; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 6; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; DUP 2; ADD; DIG 4; SWAP; UPDATE 7; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; 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 5; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 5; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; 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; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; 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; GET 3; SENDER; RENAME; 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; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; 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 } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; 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 10 { 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; 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 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 } {} } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; 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/CXTZ/step_000_cont_0_types.py b/compiled_contracts/CXTZ/step_000_cont_0_types.py index d9e0e93f..4866fc17 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_types.py +++ b/compiled_contracts/CXTZ/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp -tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, balances = sp.TBigMap(sp.TAddress, sp.TRecord(accountBorrows = sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal")), approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("accountBorrows", ("approvals", "balance")))), borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, comptroller = sp.TAddress, expScale = sp.TNat, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", "activeOperations"), ("administrator", ("balances", "borrowIndex"))), (("borrowRateMaxMantissa", "borrowRatePerBlock"), ("comptroller", ("expScale", "halfExpScale")))), ((("initialExchangeRateMantissa", "interestRateModel"), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", "supplyRatePerBlock"), ("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.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(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.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(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"))), 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"))), 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", "setComptroller")))), ((("setInterestRateModel", "setInterestRateModelInternal"), ("setPendingGovernance", ("setReserveFactor", "setReserveFactorInternal"))), (("sweepFA12", "sweepFA2"), ("sweepMutez", ("transfer", "updateProtocolSeizeShare"))))))) +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, expScale = sp.TNat, 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, 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")), ("expScale", ("halfExpScale", "initialExchangeRateMantissa")))), ((("interestRateModel", ("ledger", "metadata")), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "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.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(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.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(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"))), 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", ("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.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } diff --git a/compiled_contracts/CtzBTC/log.txt b/compiled_contracts/CtzBTC/log.txt new file mode 100644 index 00000000..d2213846 --- /dev/null +++ b/compiled_contracts/CtzBTC/log.txt @@ -0,0 +1,10 @@ +Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x38; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720747a425443; Elt "symbol" 0xea9cb0747a425443})} 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 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; 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; GET 3; SENDER; RENAME; 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; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; 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; DUP 3; DUP 7; GET 5; CAR; 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; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; 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; RENAME; SENDER; RENAME; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.json 1286 + => ./compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CtzBTC/step_000_cont_0_types.py 7 + => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.tz 4852 + => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.json 5727 + => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.py 747 diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_contract.json b/compiled_contracts/CtzBTC/step_000_cont_0_contract.json new file mode 100644 index 00000000..a6de46a4 --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_contract.json @@ -0,0 +1,5727 @@ +[ + { + "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": "nat", "annots": [ "%expScale" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%fa1_2_TokenAddress" ] }, { "prim": "nat", "annots": [ "%halfExpScale" ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%interestRateModel" ] }, + { + "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": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] }, + { + "prim": "pair", + "args": [ + { "prim": "option", "args": [ { "prim": "address" } ], "annots": [ "%pendingAdministrator" ] }, + { "prim": "nat", "annots": [ "%protocolSeizeShareMantissa" ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%reserveFactorMantissa" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] }, { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] } ] } + ] + }, + { + "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": "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": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, + { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "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": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] }, + { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "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": "nat", "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": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }, + { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "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": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }, + { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "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": "7" } ] }, + { + "prim": "CONTRACT", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } ], + "annots": [ "%getBalance" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "33" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SELF", "annots": [ "%setCash" ] }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { + "prim": "CONTRACT", + "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], + "annots": [ "%accrueInterestInternal" ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, + { "prim": "RENAME" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, + { "prim": "RENAME" }, + { "prim": "AMOUNT" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CDR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "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": "631" } ] }, { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] + }, + { "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": "4" } ] }, + { "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": "RENAME" }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "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": "628" } ] }, { "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": "631" } ] }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "4" } ] }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "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": "550" } ] }, { "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": "4" } ] }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "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": "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": "3" } ] }, + { "prim": "GET", "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": "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": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "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": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "265" } ] }, { "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": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "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": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "268" } ] }, { "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": "270" } ] }, { "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": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW" } ] }, + { "prim": "FAILWITH" } + ], + [] + ] + }, + { "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": "382" } ] }, { "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": "RENAME" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW" } ] }, + { "prim": "FAILWITH" } + ], + [] + ] + }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "SWAP" }, + { "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": "7" } ] }, + { + "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": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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" }, + { "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": "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": "RENAME" }, + { "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": "RENAME" }, + { + "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "SWAP" }, + { "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": "7" } ] }, + { + "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": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, + { "prim": "RENAME" }, + { "prim": "AMOUNT" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "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": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "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": "276" } ] }, { "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": "RENAME" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "628" } ] }, { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "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": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "265" } ] }, { "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": "3" } ] }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "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": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "268" } ] }, { "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": "270" } ] }, { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "SWAP" }, + { "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": "NOT" }, + { "prim": "RENAME" }, + { + "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "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": "RENAME" }, + { + "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "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": "SWAP" }, + { "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": "334" } ] }, { "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": "335" } ] }, { "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": "RENAME" }, + { + "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": "SWAP" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, + { "prim": "RENAME" }, + { "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": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "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": "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": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "COMPARE" }, + { "prim": "GE" } + ] + ] + }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_NotAllowed" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" }, + { "prim": "RENAME" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "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": "SWAP" }, + { "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": "NOT" }, + { "prim": "RENAME" }, + { + "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": "427" } ] }, { "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": "RENAME" }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "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": "415" } ] }, { "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": "417" } ] }, { "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": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "SWAP" }, + { "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": "419" } ] }, { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "13" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "SOME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "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": "SWAP" }, + { "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": "422" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "NONE", "args": [ { "prim": "nat" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "UPDATE" }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "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": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CDR" }, + { "prim": "SOME" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "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": "4" } ] }, + { "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": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "borrowBalanceStoredView" }, + { "prim": "address" }, + { "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": "628" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "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": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + ], + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "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": "nat" }, + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "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": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "getAccountSnapshotView" }, + { "prim": "address" }, + { + "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": "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": "4" } ] }, + { "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": "RENAME" }, + { "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": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "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": "628" } ] }, { "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": "631" } ] }, { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "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": "DIG", "args": [ { "int": "2" } ] }, + { "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": "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": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "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": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + } +] \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_contract.py b/compiled_contracts/CtzBTC/step_000_cont_0_contract.py new file mode 100644 index 00000000..71954d96 --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_contract.py @@ -0,0 +1,747 @@ +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, fa1_2_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, 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", ("fa1_2_TokenAddress", "halfExpScale")))), ((("initialExchangeRateMantissa", ("interestRateModel", "ledger")), ("metadata", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply"))))))) + self.init(accrualBlockNumber = 0, + activeOperations = sp.set([]), + administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), + borrowIndex = 1000000000000000000, + borrowRateMaxMantissa = 800000000000, + borrowRatePerBlock = 0, + borrows = {}, + comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), + currentCash = 0, + expScale = 1000000000000000000, + fa1_2_TokenAddress = sp.address('KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn'), + halfExpScale = 500000000000000000, + initialExchangeRateMantissa = 1000000000000000000, + interestRateModel = sp.address('KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW'), + ledger = {}, + metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, + pendingAdministrator = sp.none, + protocolSeizeShareMantissa = 100000000000000, + reserveFactorMantissa = 50000000000000000, + reserveFactorMaxMantissa = 1000000000000000000, + supplyRatePerBlock = 0, + token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x38'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e6720747a425443'), 'symbol' : sp.bytes('0xea9cb0747a425443')})}, + 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_CFA12_27 = sp.local("compute_CFA12_27", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) + sp.if compute_CFA12_27.value > 0: + self.data.activeOperations.add(13) + sp.transfer((sp.self_address, sp.self_entrypoint('setCash')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), self.data.fa1_2_TokenAddress, entrypoint='getBalance').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.record(from_ = params.originalSender, to_ = sp.self_address, value = params.addAmount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + 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.record(from_ = sp.self_address, to_ = sp.sender, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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) + sp.set_type(sp.snd(params), sp.TContract(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_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_763.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_763.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_763.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_761.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_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.borrowIndex, sp.TNat) + sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_761.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) + sp.set_type(sp.snd(params), sp.TContract(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_565 = sp.local("compute_CToken_565", 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_565.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_565.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_565.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_565.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) + sp.set_type(sp.snd(params), sp.TContract(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) + sp.set_type(sp.snd(params), sp.TContract(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 + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, 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.record(from_ = sp.sender, to_ = sp.self_address, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.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_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.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.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_965.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_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_968.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_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) + amount.value = compute_CToken_976.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_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_979.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.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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.record(from_ = sp.self_address, to_ = self.data.administrator, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_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 + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), 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 + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), 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.TNat) + sp.verify(self.data.activeOperations.contains(13), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(13) + sp.verify(sp.sender == self.data.fa1_2_TokenAddress, 'CT_INVALID_CASH_SENDER') + self.data.currentCash = params + + @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.verify(params.tokenAddress != self.data.fa1_2_TokenAddress, 'CT_SWEEP_UNDERLYING') + 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.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), 'FA1.2_NotAllowed') + 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, 'FA1.2_InsufficientBalance') + 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/CtzBTC/step_000_cont_0_contract.tz b/compiled_contracts/CtzBTC/step_000_cont_0_contract.tz new file mode 100644 index 00000000..64eac756 --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_contract.tz @@ -0,0 +1,4852 @@ +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 (nat %setCash) (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 nat)) (pair %exchangeRateStored unit (contract 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 nat)) (pair %getCash unit (contract 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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.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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %getBalance (pair address (contract nat)); # option (contract (pair address (contract 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 33; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (contract nat) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 735; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%addReservesInternal : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 573; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 549; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 550; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 550; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 489; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 521; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 357; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address address : pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address) (pair address (pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # 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 %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" nat; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 382; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" nat; # option 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : @some : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : @some : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @some) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @parameter%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @parameter%redeemUnderlying : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address @parameter%redeemUnderlying) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # mutez : contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 276; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair address (pair address (pair address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address (pair address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair address (pair address (pair address @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : @parameter%repayBorrow : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 276; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair address (pair address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (pair address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair address (pair address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : mutez : @some : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 6; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 307; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 334; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 335; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : contract address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : contract unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # contract nat : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 404; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 404; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "FA1.2_NotAllowed"; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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%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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : address : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NOT; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 427; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 413; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "FA1.2_InsufficientBalance"; # string : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 416; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 415; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 415; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 422; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair address (big_map address (pair (map address nat) nat)) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # address : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map string bytes : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%updateMetadata : big_map string bytes : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 6; # @parameter%updateMetadata : option bytes : big_map string bytes : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter + GET 4; # 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 503; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + }; +view + "borrowBalanceStoredView" 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some + GET 3; # nat : nat : @some + DIG 2; # @some : nat : nat + CDR; # nat : nat : nat + MUL; # nat : nat + EDIV; # option (pair nat nat) + IF_NONE + { + PUSH int 631; # int + FAILWITH; # FAILED + } + { + CAR; # nat + }; # nat + } + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + } + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + }; +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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) + GET 3; # address + }; +view + "exchangeRateStoredView" unit 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat + GET 4; # nat : nat : nat : nat : nat : nat + SUB; # int : nat : nat : nat : nat + ISNAT; # option nat : nat : nat : nat : nat + RENAME; # option nat : nat : nat : nat : nat + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat + ADD; # nat : nat : nat : nat + SUB; # int : nat : nat + ISNAT; # option nat : nat : nat + RENAME; # option nat : nat : nat + IF_NONE + { + PUSH int 671; # int : nat : nat + FAILWITH; # FAILED + } + {}; # @some : nat : nat + MUL; # nat : nat + EDIV; # option (pair nat nat) + IF_NONE + { + PUSH int 257; # int + FAILWITH; # FAILED + } + { + CAR; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 + }; +view + "getAccountSnapshotView" address (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + RENAME; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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)) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 573; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 628; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 631; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : 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) + RENAME; # 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) + RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 671; # 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (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) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : 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) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (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) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair (pair @parameter 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) 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 nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + }; \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv b/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv new file mode 100644 index 00000000..7de82682 --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv @@ -0,0 +1,2 @@ +storage,5212 +contract,20314 \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_storage.json b/compiled_contracts/CtzBTC/step_000_cont_0_storage.json new file mode 100644 index 00000000..d27c1ed6 --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_storage.json @@ -0,0 +1,1286 @@ +{ + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ [], { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" } ] } ] }, + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "800000000000" }, { "int": "0" } ] } ] } + ] + }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ { "string": "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" }, { "int": "0" } ] } ] }, + { + "prim": "Pair", + "args": [ + { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "string": "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" }, { "int": "500000000000000000" } ] } + ] + } + ] + } + ] + }, + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "string": "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" }, [] ] } ] }, + { + "prim": "Pair", + "args": [ + [ + { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "74657a6f732d73746f726167653a64617461" } ] }, + { + "prim": "Elt", + "args": [ + { "string": "data" }, + { + "bytes": "7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d" + } + ] + } + ], + { "prim": "Pair", "args": [ { "prim": "None" }, { "int": "100000000000000" } ] } + ] + } + ] + }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "50000000000000000" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "0" } ] } ] }, + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + [ + { + "prim": "Elt", + "args": [ + { "int": "0" }, + { + "prim": "Pair", + "args": [ + { "int": "0" }, + [ + { "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "38" } ] }, + { "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54657a46696e20496e7465726573742d42656172696e6720747a425443" } ] }, + { "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "ea9cb0747a425443" } ] } + ] + ] + } + ] + } + ], + { "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": "5" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "5" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "812" } ] }, { "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": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "NONE", "args": [ { "prim": "address" } ] }, + { "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": "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { + "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": "744" } ] }, { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "LT" } + ] + ] + }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "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": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "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": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "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": "SWAP" }, + { "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": "SWAP" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "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": "SWAP" }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MUL" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "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": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "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": "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": "RENAME" }, + { "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "7" } ] }, + { + "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": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "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": "RENAME" }, + { "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": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "NONE", "args": [ { "prim": "address" } ] }, + { "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": "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": "7" } ] }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "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": "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": "RENAME" }, + { "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "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": "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": "RENAME" }, + { "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": "SOME" }, + { "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": "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": "RENAME" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "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": "RENAME" }, + { "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": "GET", "args": [ { "int": "3" } ] }, + { "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": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "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": "RENAME" }, + { "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": "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" } + ] + ] + } + ] + ] +} \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_storage.py b/compiled_contracts/CtzBTC/step_000_cont_0_storage.py new file mode 100644 index 00000000..85666f0e --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_storage.py @@ -0,0 +1 @@ +sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, borrows = {}, comptroller = sp.address('KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG'), currentCash = 0, expScale = 1000000000000000000, fa1_2_TokenAddress = sp.address('KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn'), halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW'), ledger = {}, metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x38'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e6720747a425443'), 'symbol' : sp.bytes('0xea9cb0747a425443')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz b/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz new file mode 100644 index 00000000..865a67e6 --- /dev/null +++ b/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz @@ -0,0 +1 @@ +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x38; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720747a425443; Elt "symbol" 0xea9cb0747a425443})} 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 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; 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; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; 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 {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; 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; GET 3; SENDER; RENAME; 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; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; 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; DUP 3; DUP 7; GET 5; CAR; 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; 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; RENAME; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; 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 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; 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; RENAME; 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; RENAME; SENDER; RENAME; 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; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; 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; RENAME; SENDER; RENAME; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; 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; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_types.py b/compiled_contracts/CtzBTC/step_000_cont_0_types.py new file mode 100644 index 00000000..5910ccc9 --- /dev/null +++ b/compiled_contracts/CtzBTC/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, fa1_2_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, 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", ("fa1_2_TokenAddress", "halfExpScale")))), ((("initialExchangeRateMantissa", ("interestRateModel", "ledger")), ("metadata", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), (("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.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(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.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(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.TNat, 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.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } diff --git a/compiled_contracts/Governance/log.txt b/compiled_contracts/Governance/log.txt index 3939613e..8d130a81 100644 --- a/compiled_contracts/Governance/log.txt +++ b/compiled_contracts/Governance/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; SWAP; DUP; DUG 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; DUP; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 202; FAILWITH } {}; NIL operation; SWAP; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_storage.json 129 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_contract.tz 791 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_contract.json 1068 - => ./TezFinBuild/compiled_contracts/Governance/step_000_cont_0_contract.py 152 + -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; NIL operation; DUP 2; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 220; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) + => ./compiled_contracts/Governance/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/Governance/step_000_cont_0_storage.json 127 + => ./compiled_contracts/Governance/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/Governance/step_000_cont_0_storage.py 1 + => ./compiled_contracts/Governance/step_000_cont_0_types.py 7 + => ./compiled_contracts/Governance/step_000_cont_0_contract.tz 729 + => ./compiled_contracts/Governance/step_000_cont_0_contract.json 1080 + => ./compiled_contracts/Governance/step_000_cont_0_contract.py 158 diff --git a/compiled_contracts/Governance/step_000_cont_0_contract.json b/compiled_contracts/Governance/step_000_cont_0_contract.json index 34e8c97c..c416a4b4 100644 --- a/compiled_contracts/Governance/step_000_cont_0_contract.json +++ b/compiled_contracts/Governance/step_000_cont_0_contract.json @@ -251,19 +251,29 @@ "annots": [ "%setTransferPaused" ] }, { - "prim": "pair", + "prim": "or", "args": [ - { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "pair", "args": [ - { "prim": "address", "annots": [ "%cToken" ] }, - { "prim": "pair", "args": [ { "prim": "string", "annots": [ "%name" ] }, { "prim": "nat", "annots": [ "%priceExp" ] } ] } + { "prim": "address", "annots": [ "%comptroller" ] }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { "prim": "pair", "args": [ { "prim": "string", "annots": [ "%name" ] }, { "prim": "nat", "annots": [ "%priceExp" ] } ] } + ], + "annots": [ "%market" ] + } ], - "annots": [ "%market" ] + "annots": [ "%supportMarket" ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], + "annots": [ "%sweepFA12" ] } - ], - "annots": [ "%supportMarket" ] + ] } ] }, @@ -272,21 +282,24 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], - "annots": [ "%sweepFA12" ] + "args": [ + { "prim": "nat", "annots": [ "%amount" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] } + ], + "annots": [ "%sweepFA2" ] }, { "prim": "or", "args": [ + { "prim": "bool", "annots": [ "%sweepMutez" ] }, { "prim": "pair", "args": [ - { "prim": "nat", "annots": [ "%amount" ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] } + { "prim": "address", "annots": [ "%cToken" ] }, + { "prim": "pair", "args": [ { "prim": "string", "annots": [ "%key" ] }, { "prim": "bytes", "annots": [ "%value" ] } ] } ], - "annots": [ "%sweepFA2" ] - }, - { "prim": "bool", "annots": [ "%sweepMutez" ] } + "annots": [ "%updateMetadata" ] + } ] } ] @@ -360,11 +373,10 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -372,7 +384,7 @@ "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%acceptGovernance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "73" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "74" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, @@ -381,23 +393,21 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%disableMarket" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "287" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -412,23 +422,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%reduceReserves" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "186" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "187" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -440,23 +448,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setAccrualIntPeriodRelevance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "89" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "90" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -464,18 +470,18 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", @@ -484,9 +490,7 @@ ], "annots": [ "%setBorrowPaused" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "325" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "343" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -511,23 +515,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setCloseFactor" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "236" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -535,18 +537,18 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", @@ -555,9 +557,7 @@ ], "annots": [ "%setCollateralFactor" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "236" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -572,23 +572,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setComptroller" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "139" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "140" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -600,23 +598,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setPendingGovernance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "60" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -624,23 +620,21 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setInterestRateModel" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "155" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "156" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -672,23 +666,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setLiquidationIncentive" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "252" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -696,23 +688,21 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setLiquidityPeriodRelevance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "121" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "122" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -727,27 +717,25 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "bool", "annots": [ "%state" ] } ] } ], "annots": [ "%setMintPaused" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "325" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -759,23 +747,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setPricePeriodRelevance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "105" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "106" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -783,23 +769,21 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setReserveFactor" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "171" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -824,23 +808,21 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "bool" } ], "annots": [ "%setTransferPaused" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "341" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "359" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -848,40 +830,74 @@ { "prim": "CONS" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "SENDER" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, { - "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { - "prim": "CONTRACT", + "prim": "IF_LEFT", "args": [ - { - "prim": "pair", - "args": [ - { "prim": "address", "annots": [ "%cToken" ] }, - { "prim": "pair", "args": [ { "prim": "string", "annots": [ "%name" ] }, { "prim": "nat", "annots": [ "%priceExp" ] } ] } - ] - } - ], - "annots": [ "%supportMarket" ] - }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { "prim": "pair", "args": [ { "prim": "string", "annots": [ "%name" ] }, { "prim": "nat", "annots": [ "%priceExp" ] } ] } + ] + } + ], + "annots": [ "%supportMarket" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "289" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "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": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } ] ] } @@ -891,31 +907,75 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "DUP" }, - { "prim": "CDR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { - "prim": "pair", + "prim": "list", "args": [ - { "prim": "address", "annots": [ "%from" ] }, - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] } + { + "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": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { + "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": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "SELF_ADDRESS" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "RENAME" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], @@ -923,120 +983,72 @@ { "prim": "IF_LEFT", "args": [ - [ - { "prim": "DUP" }, - { "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": "38" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, - { "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": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "CONS" }, - { "prim": "SELF_ADDRESS" }, - { "prim": "PAIR" }, - { "prim": "CONS" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], [ { "prim": "IF", "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "20" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, { "prim": "BALANCE" }, + { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, { "prim": "BALANCE" }, + { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ] ] } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "RENAME" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { + "prim": "CONTRACT", + "args": [ { "prim": "pair", "args": [ { "prim": "string", "annots": [ "%key" ] }, { "prim": "bytes", "annots": [ "%value" ] } ] } ], + "annots": [ "%updateMetadata" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "203" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } ] ] } diff --git a/compiled_contracts/Governance/step_000_cont_0_contract.py b/compiled_contracts/Governance/step_000_cont_0_contract.py index 6ea74540..3fffea2a 100644 --- a/compiled_contracts/Governance/step_000_cont_0_contract.py +++ b/compiled_contracts/Governance/step_000_cont_0_contract.py @@ -6,142 +6,142 @@ def __init__(self): self.init(administrator = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), pendingAdministrator = sp.none) - @sp.entry_point + @sp.entrypoint def acceptContractGovernance(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TAddress) sp.send(params, sp.tez(0)) - @sp.entry_point + @sp.entrypoint def acceptGovernance(self, params): sp.set_type(params, sp.TUnit) sp.verify(sp.sender == self.data.pendingAdministrator.open_some(message = 'GOV_NOT_SET_PENDING_ADMIN'), 'GOV_NOT_PENDING_ADMIN') self.data.administrator = self.data.pendingAdministrator.open_some() self.data.pendingAdministrator = sp.none - @sp.entry_point + @sp.entrypoint def disableMarket(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller"))) - sp.transfer(params.cToken, sp.tez(0), sp.contract(sp.TAddress, params.comptroller, entry_point='disableMarket').open_some()) + sp.transfer(params.cToken, sp.tez(0), sp.contract(sp.TAddress, params.comptroller, entrypoint='disableMarket').open_some()) - @sp.entry_point + @sp.entrypoint def receive(self, params): sp.set_type(params, sp.TUnit) - @sp.entry_point + @sp.entrypoint def reduceReserves(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(amount = sp.TNat, cToken = sp.TAddress).layout(("amount", "cToken"))) - sp.transfer(params.amount, sp.tez(0), sp.contract(sp.TNat, params.cToken, entry_point='reduceReserves').open_some()) + sp.transfer(params.amount, sp.tez(0), sp.contract(sp.TNat, params.cToken, entrypoint='reduceReserves').open_some()) - @sp.entry_point + @sp.entrypoint def setAccrualIntPeriodRelevance(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(blockNumber = sp.TNat, cToken = sp.TAddress).layout(("blockNumber", "cToken"))) - sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.cToken, entry_point='setAccrualIntPeriodRelevance').open_some()) + sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.cToken, entrypoint='setAccrualIntPeriodRelevance').open_some()) - @sp.entry_point + @sp.entrypoint def setBorrowPaused(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState"))) - sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entry_point='setBorrowPaused').open_some()) + sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entrypoint='setBorrowPaused').open_some()) - @sp.entry_point + @sp.entrypoint def setCloseFactor(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(closeFactor = sp.TNat, comptroller = sp.TAddress).layout(("closeFactor", "comptroller"))) - sp.transfer(params.closeFactor, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setCloseFactor').open_some()) + sp.transfer(params.closeFactor, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setCloseFactor').open_some()) - @sp.entry_point + @sp.entrypoint def setCollateralFactor(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(collateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), comptroller = sp.TAddress).layout(("collateralFactor", "comptroller"))) - sp.transfer(params.collateralFactor, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), params.comptroller, entry_point='setCollateralFactor').open_some()) + sp.transfer(params.collateralFactor, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), params.comptroller, entrypoint='setCollateralFactor').open_some()) - @sp.entry_point + @sp.entrypoint def setComptroller(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller"))) - sp.transfer(params.comptroller, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entry_point='setComptroller').open_some()) + sp.transfer(params.comptroller, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entrypoint='setComptroller').open_some()) - @sp.entry_point + @sp.entrypoint def setContractGovernance(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(contractAddress = sp.TAddress, governance = sp.TAddress).layout(("contractAddress", "governance"))) - sp.transfer(params.governance, sp.tez(0), sp.contract(sp.TAddress, params.contractAddress, entry_point='setPendingGovernance').open_some()) + sp.transfer(params.governance, sp.tez(0), sp.contract(sp.TAddress, params.contractAddress, entrypoint='setPendingGovernance').open_some()) - @sp.entry_point + @sp.entrypoint def setInterestRateModel(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, interestRateModel = sp.TAddress).layout(("cToken", "interestRateModel"))) - sp.transfer(params.interestRateModel, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entry_point='setInterestRateModel').open_some()) + sp.transfer(params.interestRateModel, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entrypoint='setInterestRateModel').open_some()) - @sp.entry_point + @sp.entrypoint def setLiquidationIncentive(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, liquidationIncentive = sp.TNat).layout(("comptroller", "liquidationIncentive"))) - sp.transfer(params.liquidationIncentive, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setLiquidationIncentive').open_some()) + sp.transfer(params.liquidationIncentive, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setLiquidationIncentive').open_some()) - @sp.entry_point + @sp.entrypoint def setLiquidityPeriodRelevance(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller"))) - sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setLiquidityPeriodRelevance').open_some()) + sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setLiquidityPeriodRelevance').open_some()) - @sp.entry_point + @sp.entrypoint def setMintPaused(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState"))) - sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entry_point='setMintPaused').open_some()) + sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entrypoint='setMintPaused').open_some()) - @sp.entry_point + @sp.entrypoint def setPendingGovernance(self, params): sp.set_type(params, sp.TAddress) sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') self.data.pendingAdministrator = sp.some(params) - @sp.entry_point + @sp.entrypoint def setPriceOracleAndTimeDiff(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("comptroller", ("priceOracle", "timeDiff")))) - sp.transfer(sp.record(priceOracle = params.priceOracle, timeDiff = params.timeDiff), sp.tez(0), sp.contract(sp.TRecord(priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("priceOracle", "timeDiff")), params.comptroller, entry_point='setPriceOracleAndTimeDiff').open_some()) + sp.transfer(sp.record(priceOracle = params.priceOracle, timeDiff = params.timeDiff), sp.tez(0), sp.contract(sp.TRecord(priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("priceOracle", "timeDiff")), params.comptroller, entrypoint='setPriceOracleAndTimeDiff').open_some()) - @sp.entry_point + @sp.entrypoint def setPricePeriodRelevance(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller"))) - sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setPricePeriodRelevance').open_some()) + sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setPricePeriodRelevance').open_some()) - @sp.entry_point + @sp.entrypoint def setReserveFactor(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, newReserveFactor = sp.TNat).layout(("cToken", "newReserveFactor"))) - sp.transfer(params.newReserveFactor, sp.tez(0), sp.contract(sp.TNat, params.cToken, entry_point='setReserveFactor').open_some()) + sp.transfer(params.newReserveFactor, sp.tez(0), sp.contract(sp.TNat, params.cToken, entrypoint='setReserveFactor').open_some()) - @sp.entry_point + @sp.entrypoint def setTransferPaused(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, state = sp.TBool).layout(("comptroller", "state"))) - sp.transfer(params.state, sp.tez(0), sp.contract(sp.TBool, params.comptroller, entry_point='setTransferPaused').open_some()) + sp.transfer(params.state, sp.tez(0), sp.contract(sp.TBool, params.comptroller, entrypoint='setTransferPaused').open_some()) - @sp.entry_point + @sp.entrypoint def supportMarket(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, market = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp")))).layout(("comptroller", "market"))) - sp.transfer(params.market, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), params.comptroller, entry_point='supportMarket').open_some()) + sp.transfer(params.market, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), params.comptroller, entrypoint='supportMarket').open_some()) - @sp.entry_point + @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, entry_point='transfer').open_some()) + 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.entry_point + @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.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), 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, entry_point='transfer').open_some()) + 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.entry_point + @sp.entrypoint def sweepMutez(self, params): sp.set_type(params, sp.TBool) sp.if params: @@ -149,4 +149,10 @@ def sweepMutez(self, params): sp.else: sp.send(self.data.administrator, sp.balance) + @sp.entrypoint + def updateMetadata(self, params): + sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') + sp.set_type(params, sp.TRecord(cToken = sp.TAddress, key = sp.TString, value = sp.TBytes).layout(("cToken", ("key", "value")))) + sp.transfer(sp.record(key = params.key, value = params.value), sp.tez(0), sp.contract(sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), params.cToken, entrypoint='updateMetadata').open_some()) + sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/Governance/step_000_cont_0_contract.tz b/compiled_contracts/Governance/step_000_cont_0_contract.tz index f7e2b337..d13831d2 100644 --- a/compiled_contracts/Governance/step_000_cont_0_contract.tz +++ b/compiled_contracts/Governance/step_000_cont_0_contract.tz @@ -1,4 +1,4 @@ -parameter (or (or (or (unit %acceptGovernance) (unit %receive)) (or (address %setPendingGovernance) (pair %setPriceOracleAndTimeDiff (address %comptroller) (pair (address %priceOracle) (int %timeDiff))))) (or (or (or (or (address %acceptContractGovernance) (pair %disableMarket (address %cToken) (address %comptroller))) (or (pair %reduceReserves (nat %amount) (address %cToken)) (or (pair %setAccrualIntPeriodRelevance (nat %blockNumber) (address %cToken)) (pair %setBorrowPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state)))))) (or (or (pair %setCloseFactor (nat %closeFactor) (address %comptroller)) (pair %setCollateralFactor (pair %collateralFactor (address %cToken) (nat %newCollateralFactor)) (address %comptroller))) (or (pair %setComptroller (address %cToken) (address %comptroller)) (or (pair %setContractGovernance (address %contractAddress) (address %governance)) (pair %setInterestRateModel (address %cToken) (address %interestRateModel)))))) (or (or (or (pair %setLiquidationIncentive (address %comptroller) (nat %liquidationIncentive)) (pair %setLiquidityPeriodRelevance (nat %blockNumber) (address %comptroller))) (or (pair %setMintPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state))) (or (pair %setPricePeriodRelevance (nat %blockNumber) (address %comptroller)) (pair %setReserveFactor (address %cToken) (nat %newReserveFactor))))) (or (or (pair %setTransferPaused (address %comptroller) (bool %state)) (pair %supportMarket (address %comptroller) (pair %market (address %cToken) (pair (string %name) (nat %priceExp))))) (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez))))))); +parameter (or (or (or (unit %acceptGovernance) (unit %receive)) (or (address %setPendingGovernance) (pair %setPriceOracleAndTimeDiff (address %comptroller) (pair (address %priceOracle) (int %timeDiff))))) (or (or (or (or (address %acceptContractGovernance) (pair %disableMarket (address %cToken) (address %comptroller))) (or (pair %reduceReserves (nat %amount) (address %cToken)) (or (pair %setAccrualIntPeriodRelevance (nat %blockNumber) (address %cToken)) (pair %setBorrowPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state)))))) (or (or (pair %setCloseFactor (nat %closeFactor) (address %comptroller)) (pair %setCollateralFactor (pair %collateralFactor (address %cToken) (nat %newCollateralFactor)) (address %comptroller))) (or (pair %setComptroller (address %cToken) (address %comptroller)) (or (pair %setContractGovernance (address %contractAddress) (address %governance)) (pair %setInterestRateModel (address %cToken) (address %interestRateModel)))))) (or (or (or (pair %setLiquidationIncentive (address %comptroller) (nat %liquidationIncentive)) (pair %setLiquidityPeriodRelevance (nat %blockNumber) (address %comptroller))) (or (pair %setMintPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state))) (or (pair %setPricePeriodRelevance (nat %blockNumber) (address %comptroller)) (pair %setReserveFactor (address %cToken) (nat %newReserveFactor))))) (or (or (pair %setTransferPaused (address %comptroller) (bool %state)) (or (pair %supportMarket (address %comptroller) (pair %market (address %cToken) (pair (string %name) (nat %priceExp)))) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (or (bool %sweepMutez) (pair %updateMetadata (address %cToken) (pair (string %key) (bytes %value))))))))); storage (pair (pair (address %administrator) (option %pendingAdministrator address)) (big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))))); code { @@ -11,12 +11,10 @@ code IF_LEFT { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == acceptGovernance == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 0; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == receive == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 1; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } @@ -24,12 +22,10 @@ code IF_LEFT { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setPendingGovernance == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 2; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setPriceOracleAndTimeDiff == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 3; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -41,9 +37,7 @@ code PUSH int -1; # int : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - { - # missing entry point # @some : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - }; # @some : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUG 2; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : @some : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PAIR; # pair @parameter.left (pair (address %administrator) (option %pendingAdministrator address)) : @some : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EXEC; # pair (list operation) (pair address (option address)) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -58,13 +52,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%acceptContractGovernance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == acceptContractGovernance == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%acceptContractGovernance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%acceptContractGovernance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -73,11 +64,10 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.send(params, sp.tez(0)) # @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONTRACT %acceptGovernance unit; # option (contract unit) : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 73; # int : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 74; # int : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } {}; # @some : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -89,13 +79,10 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%disableMarket : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == disableMarket == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%disableMarket : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%disableMarket : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -104,18 +91,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.cToken, sp.tez(0), sp.contract(sp.TAddress, params.comptroller, entry_point='disableMarket').open_some()) # @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%disableMarket : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %disableMarket address; # option (contract address) : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%disableMarket : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %disableMarket address; # option (contract address) : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 287; # int : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 305; # int : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%disableMarket : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -126,13 +111,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == reduceReserves == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -141,18 +123,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.amount, sp.tez(0), sp.contract(sp.TNat, params.cToken, entry_point='reduceReserves').open_some()) # @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%reduceReserves : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %reduceReserves nat; # option (contract nat) : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%reduceReserves : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %reduceReserves nat; # option (contract nat) : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 186; # int : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 187; # int : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%reduceReserves : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -162,13 +142,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setAccrualIntPeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setAccrualIntPeriodRelevance == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setAccrualIntPeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setAccrualIntPeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -177,18 +154,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.cToken, entry_point='setAccrualIntPeriodRelevance').open_some()) # @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setAccrualIntPeriodRelevance : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setAccrualIntPeriodRelevance nat; # option (contract nat) : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setAccrualIntPeriodRelevance : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setAccrualIntPeriodRelevance nat; # option (contract nat) : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 89; # int : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 90; # int : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setAccrualIntPeriodRelevance : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -196,13 +171,10 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setBorrowPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setBorrowPaused == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setBorrowPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setBorrowPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -211,18 +183,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entry_point='setBorrowPaused').open_some()) # @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setBorrowPaused : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setBorrowPaused (pair (address %cToken) (bool %state)); # option (contract (pair (address %cToken) (bool %state))) : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setBorrowPaused : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setBorrowPaused (pair (address %cToken) (bool %state)); # option (contract (pair (address %cToken) (bool %state))) : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 325; # int : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 343; # int : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setBorrowPaused : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # pair (address %cToken) (bool %state) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -237,13 +207,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCloseFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setCloseFactor == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCloseFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCloseFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -252,18 +219,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.closeFactor, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setCloseFactor').open_some()) # @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setCloseFactor : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setCloseFactor nat; # option (contract nat) : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setCloseFactor : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setCloseFactor nat; # option (contract nat) : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 218; # int : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 236; # int : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setCloseFactor : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -271,13 +236,10 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setCollateralFactor == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -286,18 +248,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.collateralFactor, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), params.comptroller, entry_point='setCollateralFactor').open_some()) # @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setCollateralFactor : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setCollateralFactor (pair (address %cToken) (nat %newCollateralFactor)); # option (contract (pair (address %cToken) (nat %newCollateralFactor))) : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setCollateralFactor : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setCollateralFactor (pair (address %cToken) (nat %newCollateralFactor)); # option (contract (pair (address %cToken) (nat %newCollateralFactor))) : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 236; # int : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 254; # int : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setCollateralFactor : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # pair (address %cToken) (nat %newCollateralFactor) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -308,13 +268,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setComptroller == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -323,18 +280,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.comptroller, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entry_point='setComptroller').open_some()) # @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setComptroller : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setComptroller address; # option (contract address) : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setComptroller : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setComptroller address; # option (contract address) : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 139; # int : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 140; # int : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setComptroller : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -344,13 +299,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setContractGovernance == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -359,18 +311,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.governance, sp.tez(0), sp.contract(sp.TAddress, params.contractAddress, entry_point='setPendingGovernance').open_some()) # @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setContractGovernance : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setPendingGovernance address; # option (contract address) : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setContractGovernance : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setPendingGovernance address; # option (contract address) : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 60; # int : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 61; # int : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setContractGovernance : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -378,13 +328,10 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setInterestRateModel == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -393,18 +340,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.interestRateModel, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entry_point='setInterestRateModel').open_some()) # @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setInterestRateModel : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setInterestRateModel address; # option (contract address) : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setInterestRateModel : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setInterestRateModel address; # option (contract address) : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 155; # int : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 156; # int : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setInterestRateModel : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -422,13 +367,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setLiquidationIncentive == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -437,18 +379,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.liquidationIncentive, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setLiquidationIncentive').open_some()) # @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setLiquidationIncentive : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setLiquidationIncentive nat; # option (contract nat) : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setLiquidationIncentive : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setLiquidationIncentive nat; # option (contract nat) : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 252; # int : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 270; # int : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setLiquidationIncentive : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -456,13 +396,10 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidityPeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setLiquidityPeriodRelevance == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidityPeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidityPeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -471,18 +408,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setLiquidityPeriodRelevance').open_some()) # @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setLiquidityPeriodRelevance : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setLiquidityPeriodRelevance nat; # option (contract nat) : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setLiquidityPeriodRelevance : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setLiquidityPeriodRelevance nat; # option (contract nat) : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 121; # int : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 122; # int : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setLiquidityPeriodRelevance : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -493,13 +428,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMintPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setMintPaused == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMintPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMintPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -508,18 +440,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entry_point='setMintPaused').open_some()) # @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setMintPaused : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setMintPaused (pair (address %cToken) (bool %state)); # option (contract (pair (address %cToken) (bool %state))) : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setMintPaused : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setMintPaused (pair (address %cToken) (bool %state)); # option (contract (pair (address %cToken) (bool %state))) : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 307; # int : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 325; # int : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setMintPaused : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # pair (address %cToken) (bool %state) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -529,13 +459,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setPricePeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setPricePeriodRelevance == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setPricePeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setPricePeriodRelevance : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -544,18 +471,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entry_point='setPricePeriodRelevance').open_some()) # @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setPricePeriodRelevance : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setPricePeriodRelevance nat; # option (contract nat) : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setPricePeriodRelevance : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setPricePeriodRelevance nat; # option (contract nat) : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 105; # int : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 106; # int : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setPricePeriodRelevance : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -563,13 +488,10 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setReserveFactor == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -578,18 +500,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.newReserveFactor, sp.tez(0), sp.contract(sp.TNat, params.cToken, entry_point='setReserveFactor').open_some()) # @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setReserveFactor : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setReserveFactor nat; # option (contract nat) : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setReserveFactor : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setReserveFactor nat; # option (contract nat) : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 171; # int : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 172; # int : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setReserveFactor : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -604,13 +524,10 @@ code { IF_LEFT { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setTransferPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == setTransferPaused == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setTransferPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%setTransferPaused : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -619,18 +536,16 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.state, sp.tez(0), sp.contract(sp.TBool, params.comptroller, entry_point='setTransferPaused').open_some()) # @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%setTransferPaused : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setTransferPaused bool; # option (contract bool) : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setTransferPaused : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setTransferPaused bool; # option (contract bool) : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 341; # int : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 359; # int : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH mutez 0; # mutez : @some : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DIG 3; # @parameter%setTransferPaused : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # bool : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -638,140 +553,163 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - SWAP; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%supportMarket : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # == supportMarket == - # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # pair (address %administrator) (option %pendingAdministrator address) : @parameter%supportMarket : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : @parameter%supportMarket : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUG 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SENDER; # @sender : address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - COMPARE; # int : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - EQ; # bool : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF - {} - { - PUSH string "GOV_NOT_ADMIN"; # string : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - }; # @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - # sp.transfer(params.market, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), params.comptroller, entry_point='supportMarket').open_some()) # @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%supportMarket : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %supportMarket (pair (address %cToken) (pair (string %name) (nat %priceExp))); # option (contract (pair (address %cToken) (pair (string %name) (nat %priceExp)))) : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF_NONE + IF_LEFT { - PUSH int 271; # int : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF + {} + { + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + }; # @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%supportMarket : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %supportMarket (pair (address %cToken) (pair (string %name) (nat %priceExp))); # option (contract (pair (address %cToken) (pair (string %name) (nat %priceExp)))) : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 289; # int : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%supportMarket : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # pair (address %cToken) (pair (string %name) (nat %priceExp)) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } - {}; # @some : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 3; # @parameter%supportMarket : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # pair (address %cToken) (pair (string %name) (nat %priceExp)) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + { + NIL operation; # list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 17; # int : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 5; # pair (address %administrator) (option %pendingAdministrator address) : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { IF_LEFT { - # == 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, entry_point='transfer').open_some()) # @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%sweepFA12 : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + GET 4; # address : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 12; # int : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 43; # int : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP 5; # pair (address %administrator) (option %pendingAdministrator address) : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 5; # @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # nat : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SWAP; # @parameter%sweepFA2 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 8; # pair (address %administrator) (option %pendingAdministrator address) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { IF_LEFT { - # == sweepFA2 == - # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), 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, entry_point='transfer').open_some()) # @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # @parameter%sweepFA2 : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - GET 4; # address : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - 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))))))) : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF_NONE - { - PUSH int 38; # int : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - } - {}; # @some : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 5; # @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # nat : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @parameter%sweepFA2 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP 8; # pair (address %administrator) (option %pendingAdministrator address) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - 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 (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - } - { - # == sweepMutez == - # if params: # @parameter%sweepMutez : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF { - # sp.send(self.data.administrator, sp.balance) # pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %receive unit; # option (contract unit) : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %receive unit; # option (contract unit) : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 20; # int : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 21; # int : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) BALANCE; # @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - UNIT; # unit : @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + UNIT; # unit : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - # sp.send(self.data.administrator, sp.balance) # pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP; # pair (address %administrator) (option %pendingAdministrator address) : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT unit; # option (contract unit) : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT unit; # option (contract unit) : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 24; # int : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 24; # int : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @some : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SWAP; # @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) BALANCE; # @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - UNIT; # unit : @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + UNIT; # unit : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + } + { + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + RENAME; # address : address : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF + {} + { + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + }; # @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%updateMetadata : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %updateMetadata (pair (string %key) (bytes %value)); # option (contract (pair (string %key) (bytes %value))) : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 203; # int : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%updateMetadata : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP; # @parameter%updateMetadata : @parameter%updateMetadata : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + GET 4; # bytes : @parameter%updateMetadata : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SWAP; # @parameter%updateMetadata : bytes : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + GET 3; # string : bytes : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PAIR; # pair string bytes : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) diff --git a/compiled_contracts/Governance/step_000_cont_0_sizes.csv b/compiled_contracts/Governance/step_000_cont_0_sizes.csv index 84663b3d..3f79a316 100644 --- a/compiled_contracts/Governance/step_000_cont_0_sizes.csv +++ b/compiled_contracts/Governance/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,654 -contract,4601 \ No newline at end of file +storage,652 +contract,4801 \ No newline at end of file diff --git a/compiled_contracts/Governance/step_000_cont_0_storage.json b/compiled_contracts/Governance/step_000_cont_0_storage.json index d9d4fea9..7360014d 100644 --- a/compiled_contracts/Governance/step_000_cont_0_storage.json +++ b/compiled_contracts/Governance/step_000_cont_0_storage.json @@ -20,6 +20,7 @@ { "prim": "CDR" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -65,11 +66,10 @@ [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -93,24 +93,22 @@ [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%priceOracle" ] }, { "prim": "int", "annots": [ "%timeDiff" ] } ] } ], "annots": [ "%setPriceOracleAndTimeDiff" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "202" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "220" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, diff --git a/compiled_contracts/Governance/step_000_cont_0_storage.tz b/compiled_contracts/Governance/step_000_cont_0_storage.tz index 62e37255..32b9c292 100644 --- a/compiled_contracts/Governance/step_000_cont_0_storage.tz +++ b/compiled_contracts/Governance/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; SWAP; DUP; DUG 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; DUP; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 202; FAILWITH } {}; NIL operation; SWAP; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) \ No newline at end of file +(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; NIL operation; DUP 2; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 220; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/Governance/step_000_cont_0_types.py b/compiled_contracts/Governance/step_000_cont_0_types.py index 6f3414ce..c4ac9124 100644 --- a/compiled_contracts/Governance/step_000_cont_0_types.py +++ b/compiled_contracts/Governance/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp tstorage = sp.TRecord(administrator = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress)).layout(("administrator", "pendingAdministrator")) -tparameter = sp.TVariant(acceptContractGovernance = sp.TAddress, acceptGovernance = sp.TUnit, disableMarket = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), receive = sp.TUnit, reduceReserves = sp.TRecord(amount = sp.TNat, cToken = sp.TAddress).layout(("amount", "cToken")), setAccrualIntPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, cToken = sp.TAddress).layout(("blockNumber", "cToken")), setBorrowPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setCloseFactor = sp.TRecord(closeFactor = sp.TNat, comptroller = sp.TAddress).layout(("closeFactor", "comptroller")), setCollateralFactor = sp.TRecord(collateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), comptroller = sp.TAddress).layout(("collateralFactor", "comptroller")), setComptroller = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), setContractGovernance = sp.TRecord(contractAddress = sp.TAddress, governance = sp.TAddress).layout(("contractAddress", "governance")), setInterestRateModel = sp.TRecord(cToken = sp.TAddress, interestRateModel = sp.TAddress).layout(("cToken", "interestRateModel")), setLiquidationIncentive = sp.TRecord(comptroller = sp.TAddress, liquidationIncentive = sp.TNat).layout(("comptroller", "liquidationIncentive")), setLiquidityPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setMintPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(comptroller = sp.TAddress, priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("comptroller", ("priceOracle", "timeDiff"))), setPricePeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setReserveFactor = sp.TRecord(cToken = sp.TAddress, newReserveFactor = sp.TNat).layout(("cToken", "newReserveFactor")), setTransferPaused = sp.TRecord(comptroller = sp.TAddress, state = sp.TBool).layout(("comptroller", "state")), supportMarket = sp.TRecord(comptroller = sp.TAddress, market = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp")))).layout(("comptroller", "market")), 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).layout((((("acceptContractGovernance", ("acceptGovernance", "disableMarket")), ("receive", ("reduceReserves", "setAccrualIntPeriodRelevance"))), (("setBorrowPaused", ("setCloseFactor", "setCollateralFactor")), ("setComptroller", ("setContractGovernance", "setInterestRateModel")))), ((("setLiquidationIncentive", ("setLiquidityPeriodRelevance", "setMintPaused")), ("setPendingGovernance", ("setPriceOracleAndTimeDiff", "setPricePeriodRelevance"))), (("setReserveFactor", ("setTransferPaused", "supportMarket")), ("sweepFA12", ("sweepFA2", "sweepMutez")))))) +tparameter = sp.TVariant(acceptContractGovernance = sp.TAddress, acceptGovernance = sp.TUnit, disableMarket = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), receive = sp.TUnit, reduceReserves = sp.TRecord(amount = sp.TNat, cToken = sp.TAddress).layout(("amount", "cToken")), setAccrualIntPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, cToken = sp.TAddress).layout(("blockNumber", "cToken")), setBorrowPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setCloseFactor = sp.TRecord(closeFactor = sp.TNat, comptroller = sp.TAddress).layout(("closeFactor", "comptroller")), setCollateralFactor = sp.TRecord(collateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), comptroller = sp.TAddress).layout(("collateralFactor", "comptroller")), setComptroller = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), setContractGovernance = sp.TRecord(contractAddress = sp.TAddress, governance = sp.TAddress).layout(("contractAddress", "governance")), setInterestRateModel = sp.TRecord(cToken = sp.TAddress, interestRateModel = sp.TAddress).layout(("cToken", "interestRateModel")), setLiquidationIncentive = sp.TRecord(comptroller = sp.TAddress, liquidationIncentive = sp.TNat).layout(("comptroller", "liquidationIncentive")), setLiquidityPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setMintPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(comptroller = sp.TAddress, priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("comptroller", ("priceOracle", "timeDiff"))), setPricePeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setReserveFactor = sp.TRecord(cToken = sp.TAddress, newReserveFactor = sp.TNat).layout(("cToken", "newReserveFactor")), setTransferPaused = sp.TRecord(comptroller = sp.TAddress, state = sp.TBool).layout(("comptroller", "state")), supportMarket = sp.TRecord(comptroller = sp.TAddress, market = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp")))).layout(("comptroller", "market")), 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, updateMetadata = sp.TRecord(cToken = sp.TAddress, key = sp.TString, value = sp.TBytes).layout(("cToken", ("key", "value")))).layout((((("acceptContractGovernance", ("acceptGovernance", "disableMarket")), ("receive", ("reduceReserves", "setAccrualIntPeriodRelevance"))), (("setBorrowPaused", ("setCloseFactor", "setCollateralFactor")), ("setComptroller", ("setContractGovernance", "setInterestRateModel")))), ((("setLiquidationIncentive", ("setLiquidityPeriodRelevance", "setMintPaused")), ("setPendingGovernance", ("setPriceOracleAndTimeDiff", "setPricePeriodRelevance"))), (("setReserveFactor", ("setTransferPaused", "supportMarket")), (("sweepFA12", "sweepFA2"), ("sweepMutez", "updateMetadata")))))) tprivates = { } tviews = { } diff --git a/compiled_contracts/TezFinOracle/log.txt b/compiled_contracts/TezFinOracle/log.txt index 5331c93b..3e29da50 100644 --- a/compiled_contracts/TezFinOracle/log.txt +++ b/compiled_contracts/TezFinOracle/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1KBrn1udLLrGNbQ3n1mWgMVXkr26krj6Nj" (Pair {Elt "USD-USD" (Pair "2023-10-13T06:58:24Z" 1000000)} None))) - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json 25 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz 299 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json 332 - => ./TezFinBuild/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py 54 + -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "TZBTC-USD" "BTC-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" (Pair {Elt "USD-USD" (Pair "2025-04-25T08:36:06Z" 1000000); Elt "USDT-USD" (Pair "2025-04-25T08:36:06Z" 1000000)} None))) + => ./compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_storage.json 32 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_storage.py 1 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_types.py 7 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz 406 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.json 430 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.py 54 diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json index 1c8c74b4..dfd8b8c6 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json @@ -88,12 +88,14 @@ { "prim": "GET", "args": [ { "int": "6" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "UNPAIR" }, { "prim": "CDR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "NONE", "args": [ { "prim": "address" } ] }, @@ -104,12 +106,11 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -138,12 +139,11 @@ { "prim": "DROP" } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -173,12 +173,11 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -191,12 +190,11 @@ { "prim": "UPDATE", "args": [ { "int": "5" } ] } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -211,6 +209,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "NOW" }, + { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "SOME" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -231,24 +230,22 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "UPDATE", "args": [ { "int": "3" } ] } ], [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, + { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -276,13 +273,9 @@ { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { "prim": "IF", @@ -292,7 +285,11 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "93" } ] }, { "prim": "FAILWITH" } ], [] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "111" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "NOW" }, + { "prim": "RENAME" }, + { "prim": "PAIR" } ], [ { "prim": "DUP" }, @@ -306,22 +303,123 @@ "args": [ [ { "prim": "DROP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "115" } ] }, { "prim": "FAILWITH" } ], [] ] } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "USDT" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "SIZE" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "116" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "SLICE" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "failed to convert asset name" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CONCAT" }, + { "prim": "VIEW", "args": [ { "string": "get_price_with_timestamp" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "timestamp" } ] } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "USDT" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SIZE" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "116" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "SLICE" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "failed to convert asset name" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CONCAT" }, + { "prim": "VIEW", "args": [ { "string": "get_price_with_timestamp" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "timestamp" } ] } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "PAIR" } + ] + ] + } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "get_price_with_timestamp" }, + { "prim": "string" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "timestamp" } ] }, + [ + { "prim": "UNPAIR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "NOW" }, + { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "94" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "PAIR" } + ], + [ + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "97" } ] }, { "prim": "FAILWITH" } ], [] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "98" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SWAP" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "USDT" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SIZE" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "RENAME" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "99" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "SLICE" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "failed to convert asset name" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CONCAT" }, + { "prim": "VIEW", "args": [ { "string": "get_price_with_timestamp" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "timestamp" } ] } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] ] } ] ] diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py index bb6c5aa1..3b761db3 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py @@ -4,48 +4,48 @@ class Contract(sp.Contract): def __init__(self): self.init_type(sp.TRecord(admin = sp.TAddress, alias = sp.TBigMap(sp.TString, sp.TString), oracle = sp.TAddress, overrides = sp.TBigMap(sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)), pendingAdmin = sp.TOption(sp.TAddress)).layout((("admin", "alias"), ("oracle", ("overrides", "pendingAdmin"))))) self.init(admin = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), - alias = {'OXTZ-USD' : 'XTZ-USD', 'WTZ-USD' : 'XTZ-USD'}, - oracle = sp.address('KT1KBrn1udLLrGNbQ3n1mWgMVXkr26krj6Nj'), - overrides = {'USD-USD' : (sp.timestamp(1697180304), 1000000)}, + alias = {'OXTZ-USD' : 'XTZ-USD', 'TZBTC-USD' : 'BTC-USD', 'WTZ-USD' : 'XTZ-USD'}, + oracle = sp.address('KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn'), + overrides = {'USD-USD' : (sp.timestamp(1745570166), 1000000), 'USDT-USD' : (sp.timestamp(1745570166), 1000000)}, pendingAdmin = sp.none) - @sp.entry_point + @sp.entrypoint def accept_admin(self): sp.verify(sp.sender == self.data.pendingAdmin.open_some(message = 'NOT_SET_PENDING_ADMIN'), 'NOT_PENDING_ADMIN') self.data.admin = sp.sender self.data.pendingAdmin = sp.none - @sp.entry_point + @sp.entrypoint def addAlias(self, params): sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') sp.set_type(params, sp.TList(sp.TRecord(alias = sp.TString, asset = sp.TString).layout(("alias", "asset")))) sp.for item in params: self.data.alias[item.alias] = item.asset - @sp.entry_point + @sp.entrypoint def removeAlias(self, params): sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') del self.data.alias[params] - @sp.entry_point + @sp.entrypoint def removeAsset(self, params): sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') del self.data.overrides[params] - @sp.entry_point + @sp.entrypoint def setPrice(self, params): sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') sp.set_type(params, sp.TList(sp.TRecord(asset = sp.TString, price = sp.TNat).layout(("asset", "price")))) sp.for item in params: self.data.overrides[item.asset] = (sp.now, item.price) - @sp.entry_point + @sp.entrypoint def set_oracle(self, params): sp.set_type(params, sp.TAddress) sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') self.data.oracle = params - @sp.entry_point + @sp.entrypoint def set_pending_admin(self, params): sp.set_type(params, sp.TAddress) sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz index e8bc05c7..98f245b1 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz @@ -8,8 +8,6 @@ code IF_LEFT { DROP; # @storage - # == accept_admin == - # sp.verify(sp.sender == self.data.pendingAdmin.open_some(message = 'NOT_SET_PENDING_ADMIN'), 'NOT_PENDING_ADMIN') # @storage DUP; # @storage : @storage GET 6; # option address : @storage IF_NONE @@ -19,6 +17,7 @@ code } {}; # @some : @storage SENDER; # @sender : @some : @storage + RENAME; # address : @some : @storage COMPARE; # int : @storage EQ; # bool : @storage IF @@ -27,27 +26,23 @@ code PUSH string "NOT_PENDING_ADMIN"; # string : @storage FAILWITH; # FAILED }; # @storage - # self.data.admin = sp.sender # @storage UNPAIR; # pair (address %admin) (big_map %alias string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) CDR; # big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) SENDER; # @sender : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - PAIR; # pair @sender (big_map string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - PAIR; # pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - # self.data.pendingAdmin = sp.none # pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - NONE address; # option address : pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - UPDATE 6; # pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + RENAME; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) + PAIR; # pair address (big_map string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) + PAIR; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + NONE address; # option address : pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + UPDATE 6; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) } { IF_LEFT { - SWAP; # @storage : @parameter%addAlias - # == addAlias == - # sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') # @storage : @parameter%addAlias - DUP; # @storage : @storage : @parameter%addAlias - DUG 2; # @storage : @parameter%addAlias : @storage + DUP 2; # @storage : @parameter%addAlias : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter%addAlias : @storage CAR; # address : @parameter%addAlias : @storage SENDER; # @sender : address : @parameter%addAlias : @storage + RENAME; # address : address : @parameter%addAlias : @storage COMPARE; # int : @parameter%addAlias : @storage EQ; # bool : @parameter%addAlias : @storage IF @@ -56,11 +51,9 @@ code PUSH string "NOT_ADMIN"; # string : @parameter%addAlias : @storage FAILWITH; # FAILED }; # @parameter%addAlias : @storage - # for item in params: ... # @parameter%addAlias : @storage DUP; # @parameter%addAlias : @parameter%addAlias : @storage ITER { - # self.data.alias[item.alias] = item.asset # pair (string %alias) (string %asset) : @parameter%addAlias : @storage DIG 2; # @storage : pair (string %alias) (string %asset) : @parameter%addAlias UNPAIR; # pair (address %admin) (big_map %alias string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias UNPAIR; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias @@ -79,14 +72,11 @@ code DROP; # @storage } { - SWAP; # @storage : @parameter%removeAlias - # == removeAlias == - # sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') # @storage : @parameter%removeAlias - DUP; # @storage : @storage : @parameter%removeAlias - DUG 2; # @storage : @parameter%removeAlias : @storage + DUP 2; # @storage : @parameter%removeAlias : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter%removeAlias : @storage CAR; # address : @parameter%removeAlias : @storage SENDER; # @sender : address : @parameter%removeAlias : @storage + RENAME; # address : address : @parameter%removeAlias : @storage COMPARE; # int : @parameter%removeAlias : @storage EQ; # bool : @parameter%removeAlias : @storage IF @@ -96,7 +86,6 @@ code FAILWITH; # FAILED }; # @parameter%removeAlias : @storage SWAP; # @storage : @parameter%removeAlias - # del self.data.alias[params] # @storage : @parameter%removeAlias UNPAIR; # pair (address %admin) (big_map %alias string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias UNPAIR; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias SWAP; # big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias @@ -114,14 +103,11 @@ code { IF_LEFT { - SWAP; # @storage : @parameter%removeAsset - # == removeAsset == - # sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') # @storage : @parameter%removeAsset - DUP; # @storage : @storage : @parameter%removeAsset - DUG 2; # @storage : @parameter%removeAsset : @storage + DUP 2; # @storage : @parameter%removeAsset : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter%removeAsset : @storage CAR; # address : @parameter%removeAsset : @storage SENDER; # @sender : address : @parameter%removeAsset : @storage + RENAME; # address : address : @parameter%removeAsset : @storage COMPARE; # int : @parameter%removeAsset : @storage EQ; # bool : @parameter%removeAsset : @storage IF @@ -131,7 +117,6 @@ code FAILWITH; # FAILED }; # @parameter%removeAsset : @storage SWAP; # @storage : @parameter%removeAsset - # del self.data.overrides[params] # @storage : @parameter%removeAsset DUP; # @storage : @storage : @parameter%removeAsset GET 5; # big_map string (pair timestamp nat) : @storage : @parameter%removeAsset NONE (pair timestamp nat); # option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : @parameter%removeAsset @@ -140,14 +125,11 @@ code UPDATE 5; # @storage } { - SWAP; # @storage : @parameter%setPrice - # == setPrice == - # sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') # @storage : @parameter%setPrice - DUP; # @storage : @storage : @parameter%setPrice - DUG 2; # @storage : @parameter%setPrice : @storage + DUP 2; # @storage : @parameter%setPrice : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter%setPrice : @storage CAR; # address : @parameter%setPrice : @storage SENDER; # @sender : address : @parameter%setPrice : @storage + RENAME; # address : address : @parameter%setPrice : @storage COMPARE; # int : @parameter%setPrice : @storage EQ; # bool : @parameter%setPrice : @storage IF @@ -156,21 +138,20 @@ code PUSH string "NOT_ADMIN"; # string : @parameter%setPrice : @storage FAILWITH; # FAILED }; # @parameter%setPrice : @storage - # for item in params: ... # @parameter%setPrice : @storage DUP; # @parameter%setPrice : @parameter%setPrice : @storage ITER { - # self.data.overrides[item.asset] = (sp.now, item.price) # pair (string %asset) (nat %price) : @parameter%setPrice : @storage DIG 2; # @storage : pair (string %asset) (nat %price) : @parameter%setPrice DUP; # @storage : @storage : pair (string %asset) (nat %price) : @parameter%setPrice GET 5; # big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice DUP 3; # pair (string %asset) (nat %price) : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice CDR; # nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice NOW; # @now : nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - PAIR; # pair @now nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - SOME; # option (pair @now nat) : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - DIG 3; # pair (string %asset) (nat %price) : option (pair @now nat) : big_map string (pair timestamp nat) : @storage : @parameter%setPrice - CAR; # string : option (pair @now nat) : big_map string (pair timestamp nat) : @storage : @parameter%setPrice + RENAME; # timestamp : nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice + PAIR; # pair timestamp nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice + SOME; # option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice + DIG 3; # pair (string %asset) (nat %price) : option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : @parameter%setPrice + CAR; # string : option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : @parameter%setPrice UPDATE; # big_map string (pair timestamp nat) : @storage : @parameter%setPrice UPDATE 5; # @storage : @parameter%setPrice SWAP; # @parameter%setPrice : @storage @@ -181,14 +162,11 @@ code { IF_LEFT { - SWAP; # @storage : @parameter%set_oracle - # == set_oracle == - # sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') # @storage : @parameter%set_oracle - DUP; # @storage : @storage : @parameter%set_oracle - DUG 2; # @storage : @parameter%set_oracle : @storage + DUP 2; # @storage : @parameter%set_oracle : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter%set_oracle : @storage CAR; # address : @parameter%set_oracle : @storage SENDER; # @sender : address : @parameter%set_oracle : @storage + RENAME; # address : address : @parameter%set_oracle : @storage COMPARE; # int : @parameter%set_oracle : @storage EQ; # bool : @parameter%set_oracle : @storage IF @@ -197,18 +175,14 @@ code PUSH string "NOT_ADMIN"; # string : @parameter%set_oracle : @storage FAILWITH; # FAILED }; # @parameter%set_oracle : @storage - # self.data.oracle = params # @parameter%set_oracle : @storage UPDATE 3; # @storage } { - SWAP; # @storage : @parameter%set_pending_admin - # == set_pending_admin == - # sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') # @storage : @parameter%set_pending_admin - DUP; # @storage : @storage : @parameter%set_pending_admin - DUG 2; # @storage : @parameter%set_pending_admin : @storage + DUP 2; # @storage : @parameter%set_pending_admin : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter%set_pending_admin : @storage CAR; # address : @parameter%set_pending_admin : @storage SENDER; # @sender : address : @parameter%set_pending_admin : @storage + RENAME; # address : address : @parameter%set_pending_admin : @storage COMPARE; # int : @parameter%set_pending_admin : @storage EQ; # bool : @parameter%set_pending_admin : @storage IF @@ -217,7 +191,6 @@ code PUSH string "NOT_ADMIN"; # string : @parameter%set_pending_admin : @storage FAILWITH; # FAILED }; # @parameter%set_pending_admin : @storage - # self.data.pendingAdmin = sp.some(params) # @parameter%set_pending_admin : @storage SOME; # option address : @storage UPDATE 6; # @storage }; # @storage @@ -230,33 +203,149 @@ view "getPrice" string (pair timestamp nat) { UNPAIR; # @parameter : @storage - SWAP; # @storage : @parameter - # if self.data.overrides.contains(params): # @storage : @parameter - DUP; # @storage : @storage : @parameter - DUG 2; # @storage : @parameter : @storage + DUP 2; # @storage : @parameter : @storage GET 5; # big_map string (pair timestamp nat) : @parameter : @storage - SWAP; # @parameter : big_map string (pair timestamp nat) : @storage - DUP; # @parameter : @parameter : big_map string (pair timestamp nat) : @storage - DUG 2; # @parameter : big_map string (pair timestamp nat) : @parameter : @storage + DUP 2; # @parameter : big_map string (pair timestamp nat) : @parameter : @storage MEM; # bool : @parameter : @storage IF { SWAP; # @storage : @parameter - # sp.result(self.data.overrides[params]) # @storage : @parameter GET 5; # big_map string (pair timestamp nat) : @parameter SWAP; # @parameter : big_map string (pair timestamp nat) GET; # option (pair timestamp nat) IF_NONE { - PUSH int 93; # int + PUSH int 111; # int FAILWITH; # FAILED } {}; # @some + CDR; # nat + NOW; # @now : nat + RENAME; # timestamp : nat + PAIR; # pair timestamp nat + } + { + DUP; # @parameter : @parameter : @storage + DUP 3; # @storage : @parameter : @parameter : @storage + CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @parameter : @storage + CDR; # big_map string string : @parameter : @parameter : @storage + DUP 3; # @parameter : big_map string string : @parameter : @parameter : @storage + MEM; # bool : @parameter : @parameter : @storage + IF + { + DROP; # @parameter : @storage + DUP 2; # @storage : @parameter : @storage + CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @storage + CDR; # big_map string string : @parameter : @storage + SWAP; # @parameter : big_map string string : @storage + GET; # option string : @storage + IF_NONE + { + PUSH int 115; # int : @storage + FAILWITH; # FAILED + } + {}; # @some : @storage + } + { + SWAP; # @parameter : @parameter : @storage + DROP; # @parameter : @storage + }; # string : @storage + DUP 2; # @storage : string : @storage + GET 3; # address : string : @storage + PUSH string "USDT"; # string : address : string : @storage + DUP 3; # string : string : address : string : @storage + PUSH nat 4; # nat : string : string : address : string : @storage + DUP 5; # string : nat : string : string : address : string : @storage + SIZE; # nat : nat : string : string : address : string : @storage + SUB; # int : string : string : address : string : @storage + ISNAT; # option nat : string : string : address : string : @storage + RENAME; # option nat : string : string : address : string : @storage + IF_NONE + { + PUSH int 116; # int : string : string : address : string : @storage + FAILWITH; # FAILED + } + {}; # @some : string : string : address : string : @storage + PUSH nat 0; # nat : @some : string : string : address : string : @storage + SLICE; # option string : string : address : string : @storage + IF_NONE + { + PUSH string "failed to convert asset name"; # string : string : address : string : @storage + FAILWITH; # FAILED + } + {}; # @some : string : address : string : @storage + CONCAT; # string : address : string : @storage + VIEW "get_price_with_timestamp" (pair nat timestamp); # option (pair nat timestamp) : string : @storage + IF_NONE + { + PUSH string "invalid oracle view call"; # string : string : @storage + FAILWITH; # FAILED + } + {}; # @some : string : @storage + CAR; # nat : string : @storage + DIG 2; # @storage : nat : string + GET 3; # address : nat : string + PUSH string "USDT"; # string : address : nat : string + DUP 4; # string : string : address : nat : string + PUSH nat 4; # nat : string : string : address : nat : string + DIG 5; # string : nat : string : string : address : nat + SIZE; # nat : nat : string : string : address : nat + SUB; # int : string : string : address : nat + ISNAT; # option nat : string : string : address : nat + RENAME; # option nat : string : string : address : nat + IF_NONE + { + PUSH int 116; # int : string : string : address : nat + FAILWITH; # FAILED + } + {}; # @some : string : string : address : nat + PUSH nat 0; # nat : @some : string : string : address : nat + SLICE; # option string : string : address : nat + IF_NONE + { + PUSH string "failed to convert asset name"; # string : string : address : nat + FAILWITH; # FAILED + } + {}; # @some : string : address : nat + CONCAT; # string : address : nat + VIEW "get_price_with_timestamp" (pair nat timestamp); # option (pair nat timestamp) : nat + IF_NONE + { + PUSH string "invalid oracle view call"; # string : nat + FAILWITH; # FAILED + } + {}; # @some : nat + CDR; # timestamp : nat + PAIR; # pair timestamp nat + }; # pair timestamp nat + }; +view + "get_price_with_timestamp" string (pair nat timestamp) + { + UNPAIR; # @parameter : @storage + DUP 2; # @storage : @parameter : @storage + GET 5; # big_map string (pair timestamp nat) : @parameter : @storage + DUP 2; # @parameter : big_map string (pair timestamp nat) : @parameter : @storage + MEM; # bool : @parameter : @storage + IF + { + NOW; # @now : @parameter : @storage + RENAME; # timestamp : @parameter : @storage + DIG 2; # @storage : timestamp : @parameter + GET 5; # big_map string (pair timestamp nat) : timestamp : @parameter + DIG 2; # @parameter : big_map string (pair timestamp nat) : timestamp + GET; # option (pair timestamp nat) : timestamp + IF_NONE + { + PUSH int 94; # int : timestamp + FAILWITH; # FAILED + } + {}; # @some : timestamp + CDR; # nat : timestamp + PAIR; # pair nat timestamp } { - # asset = sp.local("asset", params) # @parameter : @storage DUP; # @parameter : @parameter : @storage - # if self.data.alias.contains(params): # @parameter : @parameter : @storage DUP 3; # @storage : @parameter : @parameter : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @parameter : @storage CDR; # big_map string string : @parameter : @parameter : @storage @@ -265,17 +354,14 @@ view IF { DROP; # @parameter : @storage - SWAP; # @storage : @parameter - # asset.value = self.data.alias[params] # @storage : @parameter - DUP; # @storage : @storage : @parameter - DUG 2; # @storage : @parameter : @storage + DUP 2; # @storage : @parameter : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @storage CDR; # big_map string string : @parameter : @storage SWAP; # @parameter : big_map string string : @storage GET; # option string : @storage IF_NONE { - PUSH int 97; # int : @storage + PUSH int 98; # int : @storage FAILWITH; # FAILED } {}; # @some : @storage @@ -285,15 +371,36 @@ view DROP; # @parameter : @storage }; # string : @storage SWAP; # @storage : string - # sp.result(sp.view("getPrice", asset.value, self.data.oracle, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # @storage : string GET 3; # address : string - SWAP; # string : address - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) + PUSH string "USDT"; # string : address : string + DUP 3; # string : string : address : string + PUSH nat 4; # nat : string : string : address : string + DIG 4; # string : nat : string : string : address + SIZE; # nat : nat : string : string : address + SUB; # int : string : string : address + ISNAT; # option nat : string : string : address + RENAME; # option nat : string : string : address + IF_NONE + { + PUSH int 99; # int : string : string : address + FAILWITH; # FAILED + } + {}; # @some : string : string : address + PUSH nat 0; # nat : @some : string : string : address + SLICE; # option string : string : address + IF_NONE + { + PUSH string "failed to convert asset name"; # string : string : address + FAILWITH; # FAILED + } + {}; # @some : string : address + CONCAT; # string : address + VIEW "get_price_with_timestamp" (pair nat timestamp); # option (pair nat timestamp) IF_NONE { PUSH string "invalid oracle view call"; # string FAILWITH; # FAILED } {}; # @some - }; # @some + }; # pair nat timestamp }; \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv b/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv index baf04881..56dacb5a 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,200 -contract,1198 \ No newline at end of file +storage,274 +contract,1933 \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json index 71a3a188..54082e0c 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json @@ -5,17 +5,24 @@ "prim": "Pair", "args": [ { "string": "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" }, - [ { "prim": "Elt", "args": [ { "string": "OXTZ-USD" }, { "string": "XTZ-USD" } ] }, { "prim": "Elt", "args": [ { "string": "WTZ-USD" }, { "string": "XTZ-USD" } ] } ] + [ + { "prim": "Elt", "args": [ { "string": "OXTZ-USD" }, { "string": "XTZ-USD" } ] }, + { "prim": "Elt", "args": [ { "string": "TZBTC-USD" }, { "string": "BTC-USD" } ] }, + { "prim": "Elt", "args": [ { "string": "WTZ-USD" }, { "string": "XTZ-USD" } ] } + ] ] }, { "prim": "Pair", "args": [ - { "string": "KT1KBrn1udLLrGNbQ3n1mWgMVXkr26krj6Nj" }, + { "string": "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" }, { "prim": "Pair", "args": [ - [ { "prim": "Elt", "args": [ { "string": "USD-USD" }, { "prim": "Pair", "args": [ { "string": "2023-10-13T06:58:24Z" }, { "int": "1000000" } ] } ] } ], + [ + { "prim": "Elt", "args": [ { "string": "USD-USD" }, { "prim": "Pair", "args": [ { "string": "2025-04-25T08:36:06Z" }, { "int": "1000000" } ] } ] }, + { "prim": "Elt", "args": [ { "string": "USDT-USD" }, { "prim": "Pair", "args": [ { "string": "2025-04-25T08:36:06Z" }, { "int": "1000000" } ] } ] } + ], { "prim": "None" } ] } diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py index df87670b..81cea9ac 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(admin = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), alias = {'OXTZ-USD' : 'XTZ-USD', 'WTZ-USD' : 'XTZ-USD'}, oracle = sp.address('KT1KBrn1udLLrGNbQ3n1mWgMVXkr26krj6Nj'), overrides = {'USD-USD' : (sp.timestamp(1697180304), 1000000)}, pendingAdmin = sp.none) \ No newline at end of file +sp.record(admin = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), alias = {'OXTZ-USD' : 'XTZ-USD', 'TZBTC-USD' : 'BTC-USD', 'WTZ-USD' : 'XTZ-USD'}, oracle = sp.address('KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn'), overrides = {'USD-USD' : (sp.timestamp(1745570166), 1000000), 'USDT-USD' : (sp.timestamp(1745570166), 1000000)}, pendingAdmin = sp.none) \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz index 199556a0..65d85a7a 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1KBrn1udLLrGNbQ3n1mWgMVXkr26krj6Nj" (Pair {Elt "USD-USD" (Pair "2023-10-13T06:58:24Z" 1000000)} None))) \ No newline at end of file +(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "TZBTC-USD" "BTC-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" (Pair {Elt "USD-USD" (Pair "2025-04-25T08:36:06Z" 1000000); Elt "USDT-USD" (Pair "2025-04-25T08:36:06Z" 1000000)} None))) \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_types.py b/compiled_contracts/TezFinOracle/step_000_cont_0_types.py index f142d974..4119babb 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_types.py +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_types.py @@ -3,4 +3,4 @@ tstorage = sp.TRecord(admin = sp.TAddress, alias = sp.TBigMap(sp.TString, sp.TString), oracle = sp.TAddress, overrides = sp.TBigMap(sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)), pendingAdmin = sp.TOption(sp.TAddress)).layout((("admin", "alias"), ("oracle", ("overrides", "pendingAdmin")))) tparameter = sp.TVariant(accept_admin = sp.TUnit, addAlias = sp.TList(sp.TRecord(alias = sp.TString, asset = sp.TString).layout(("alias", "asset"))), removeAlias = sp.TString, removeAsset = sp.TString, setPrice = sp.TList(sp.TRecord(asset = sp.TString, price = sp.TNat).layout(("asset", "price"))), set_oracle = sp.TAddress, set_pending_admin = sp.TAddress).layout((("accept_admin", ("addAlias", "removeAlias")), (("removeAsset", "setPrice"), ("set_oracle", "set_pending_admin")))) tprivates = { } -tviews = { "getPrice": (sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)) } +tviews = { "getPrice": (sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)), "get_price_with_timestamp": (sp.TString, sp.TPair(sp.TNat, sp.TTimestamp)) } diff --git a/compiled_contracts/scenario.json b/compiled_contracts/scenario.json index 4a8ffbcc..ea0ca705 100644 --- a/compiled_contracts/scenario.json +++ b/compiled_contracts/scenario.json @@ -1,14 +1,14 @@ [ { - "shortname": "CoXTZ", - "longname": "CoXTZ", + "shortname": "CtzBTC", + "longname": "CtzBTC", "scenario": [ { "action": "newContract", "accept_unknown_types": false, - "export": "(template_id ((\"\" -1) static_id 0) \nstorage ((\"contracts/utils/Exponential.py\" 21) record (accrualBlockNumber ((\"contracts/CToken.py\" 45) literal (nat 0))) (activeOperations ((\"contracts/CToken.py\" 59) type_annotation ((\"contracts/CToken.py\" 59) set ) (set \"nat\"))) (administrator ((\"deploy/compile_targets/CompileCoXTZ.py\" 13) literal (address \"KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq\"))) (balances ((\"contracts/CToken.py\" 24) type_annotation ((\"contracts/CToken.py\" 24) big_map ) (bigmap \"address\" (record ((accountBorrows (record ((interestIndex \"nat\") (principal \"nat\")) None (\"contracts/interfaces/CTokenInterface.py\" 12))) (approvals (map \"address\" \"nat\")) (balance \"nat\")) None (\"contracts/CToken.py\" 24))))) (borrowIndex ((\"contracts/CToken.py\" 47) literal (nat 1000000000000000000))) (borrowRateMaxMantissa ((\"contracts/CToken.py\" 32) literal (nat 80000000000))) (borrowRatePerBlock ((\"contracts/CToken.py\" 53) literal (nat 0))) (comptroller ((\"deploy/compile_targets/CompileCoXTZ.py\" 10) literal (address \"KT1XnZqyGrEKkf8TiQ2uYE2zyxsp2L5NZ6KW\"))) (currentCash ((\"contracts/CFA12.py\" 18) literal (nat 0))) (expScale ((\"contracts/utils/Exponential.py\" 21) literal (nat 1000000000000000000))) (fa1_2_TokenAddress ((\"deploy/compile_targets/CompileCoXTZ.py\" 14) literal (address \"KT1TjnZYs5CGLbmV6yuW169P8Pnr9BiVwwjz\"))) (halfExpScale ((\"contracts/utils/Exponential.py\" 21) literal (nat 500000000000000000))) (initialExchangeRateMantissa ((\"deploy/compile_targets/CompileCoXTZ.py\" 12) literal (nat 1000000000000000000))) (interestRateModel ((\"deploy/compile_targets/CompileCoXTZ.py\" 11) literal (address \"KT1QCL5W3heju7SJKvRgYR9xNtP9fEenG1Eq\"))) (pendingAdministrator ((\"\" -1) variant \"None\" ((\"\" -1) literal (unit)))) (protocolSeizeShareMantissa ((\"contracts/CToken.py\" 43) literal (nat 100000000000000))) (reserveFactorMantissa ((\"contracts/CToken.py\" 41) literal (nat 50000000000000000))) (reserveFactorMaxMantissa ((\"contracts/CToken.py\" 34) literal (nat 1000000000000000000))) (supplyRatePerBlock ((\"contracts/CToken.py\" 55) literal (nat 0))) (totalBorrows ((\"contracts/CToken.py\" 49) literal (nat 0))) (totalReserves ((\"contracts/CToken.py\" 51) literal (nat 0))) (totalSupply ((\"contracts/CToken.py\" 30) literal (nat 0))))\nstorage_type (())\nentry_points ((acceptGovernance True True None None True None (\"contracts/CToken.py\" 776) (((\"contracts/CToken.py\" 777) set_type ((\"contracts/CToken.py\" 776) params) \"unit\") ((\"contracts/CToken.py\" 778) verify ((\"contracts/CToken.py\" 778) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 778) open_variant ((\"contracts/CToken.py\" 778) attr ((\"\" -1) data) \"pendingAdministrator\") \"Some\" ((\"contracts/CToken.py\" 778) literal (string \"CT_NOT_SET_PENDING_ADMIN\")))) ((\"contracts/CToken.py\" 778) literal (string \"CT_NOT_PENDING_ADMIN\"))) ((\"contracts/CToken.py\" 780) set ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\") ((\"contracts/CToken.py\" 780) open_variant ((\"contracts/CToken.py\" 778) attr ((\"\" -1) data) \"pendingAdministrator\") \"Some\" \"None\")) ((\"contracts/CToken.py\" 781) set ((\"contracts/CToken.py\" 778) attr ((\"\" -1) data) \"pendingAdministrator\") ((\"\" -1) variant \"None\" ((\"\" -1) literal (unit)))))) (accrueInterest True None None None True None (\"contracts/CToken.py\" 693) (((\"contracts/CToken.py\" 694) set_type ((\"contracts/CToken.py\" 693) params) \"unit\") ((\"contracts/CFA12.py\" 25) define_local \"compute_CFA12_25\" ((\"contracts/CFA12.py\" 25) add ((\"contracts/CFA12.py\" 25) add ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\")) True) ((\"contracts/CFA12.py\" 28) if_block ((\"contracts/CFA12.py\" 28) gt ((\"contracts/CFA12.py\" 25) get_local \"compute_CFA12_25\") ((\"contracts/CFA12.py\" 28) literal (intOrNat 0))) (((\"contracts/utils/OperationProtector.py\" 46) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 22) literal (nat 13)) True) ((\"contracts/CFA12.py\" 32) set ((\"contracts/CFA12.py\" 32) operations) ((\"contracts/CFA12.py\" 32) cons ((\"contracts/CFA12.py\" 32) transfer ((\"contracts/CFA12.py\" 32) tuple ((\"\" -1) self_address) ((\"contracts/CFA12.py\" 32) self \"setCash\")) ((\"contracts/CFA12.py\" 33) literal (mutez 0)) ((\"contracts/CFA12.py\" 30) open_variant ((\"contracts/CFA12.py\" 30) contract \"getBalance\" (tuple \"address\" (contract \"nat\")) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/CFA12.py\" 32) operations))))) ((\"contracts/CToken.py\" 696) if_block ((\"contracts/CToken.py\" 696) neq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) (((\"contracts/CToken.py\" 697) if_block ((\"contracts/CToken.py\" 697) eq ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\") ((\"contracts/CToken.py\" 697) literal (intOrNat 0))) (((\"contracts/CToken.py\" 698) set ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\") ((\"\" -1) level)))) (else_block (((\"contracts/utils/OperationProtector.py\" 46) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 17) literal (nat 8)) True) ((\"contracts/CToken.py\" 704) set ((\"contracts/CToken.py\" 704) operations) ((\"contracts/CToken.py\" 704) cons ((\"contracts/CToken.py\" 704) transfer ((\"contracts/CToken.py\" 704) self \"doAccrueInterest\") ((\"contracts/CToken.py\" 705) literal (mutez 0)) ((\"contracts/CToken.py\" 702) open_variant ((\"contracts/CToken.py\" 702) contract \"accrueInterestInternal\" (contract \"nat\") ((\"\" -1) self_address)) \"Some\" \"None\")) ((\"contracts/CToken.py\" 704) operations))))))))) (accrueInterestInternal True True None None True None (\"contracts/CToken.py\" 708) (((\"contracts/CToken.py\" 709) set_type ((\"contracts/CToken.py\" 708) params) (contract \"nat\")) ((\"contracts/CToken.py\" 920) verify ((\"contracts/CToken.py\" 920) eq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 920) literal (string \"CT_INTERNAL_FUNCTION\"))) ((\"contracts/CToken.py\" 717) set ((\"contracts/CToken.py\" 717) operations) ((\"contracts/CToken.py\" 717) cons ((\"contracts/CToken.py\" 717) transfer ((\"contracts/CToken.py\" 713) record (borrows ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) (cash ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\")) (cb ((\"contracts/CToken.py\" 708) params)) (reserves ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) ((\"contracts/CToken.py\" 717) literal (mutez 0)) ((\"contracts/CToken.py\" 711) open_variant ((\"contracts/CToken.py\" 711) contract \"getBorrowRate\" (record ((borrows \"nat\") (cash \"nat\") (cb (contract \"nat\")) (reserves \"nat\")) None (\"contracts/interfaces/InterestRateModelInterface.py\" 15)) ((\"contracts/CToken.py\" 711) attr ((\"\" -1) data) \"interestRateModel\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 717) operations))))) (addReserves True None None None True None (\"contracts/CToken.py\" 865) (((\"contracts/CToken.py\" 866) set_type ((\"contracts/CToken.py\" 865) params) \"nat\") ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/utils/OperationProtector.py\" 40) verify ((\"contracts/utils/OperationProtector.py\" 40) eq ((\"contracts/utils/OperationProtector.py\" 40) size ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\")) ((\"contracts/utils/OperationProtector.py\" 40) literal (intOrNat 0))) ((\"contracts/utils/OperationProtector.py\" 40) literal (string \"OP_IN_PROGRESS\"))) ((\"contracts/utils/OperationProtector.py\" 46) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 20) literal (nat 11)) True) ((\"contracts/CToken.py\" 869) set ((\"contracts/CToken.py\" 869) operations) ((\"contracts/CToken.py\" 869) cons ((\"contracts/CToken.py\" 869) transfer ((\"\" -1) literal (unit)) ((\"contracts/CToken.py\" 869) literal (mutez 0)) ((\"contracts/CToken.py\" 870) self \"accrueInterest\")) ((\"contracts/CToken.py\" 869) operations))) ((\"contracts/CToken.py\" 871) set ((\"contracts/CToken.py\" 871) operations) ((\"contracts/CToken.py\" 871) cons ((\"contracts/CToken.py\" 871) transfer ((\"contracts/CToken.py\" 871) record (addAmount ((\"contracts/CToken.py\" 865) params)) (originalSender ((\"\" -1) sender))) ((\"\" -1) amount) ((\"contracts/CToken.py\" 872) self \"addReservesInternal\")) ((\"contracts/CToken.py\" 871) operations))))) (addReservesInternal True None None None True None (\"contracts/CToken.py\" 875) (((\"contracts/CToken.py\" 920) verify ((\"contracts/CToken.py\" 920) eq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 920) literal (string \"CT_INTERNAL_FUNCTION\"))) ((\"contracts/utils/OperationProtector.py\" 43) verify ((\"contracts/utils/OperationProtector.py\" 43) contains ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 20) literal (nat 11))) ((\"contracts/utils/OperationProtector.py\" 43) literal (string \"OP_NOT_ACTIVE\"))) ((\"contracts/utils/OperationProtector.py\" 49) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 20) literal (nat 11)) False) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"contracts/CToken.py\" 879) attr ((\"contracts/CToken.py\" 875) params) \"originalSender\")) (to_ ((\"\" -1) self_address)) (value ((\"contracts/CToken.py\" 879) attr ((\"contracts/CToken.py\" 875) params) \"addAmount\"))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))) ((\"contracts/CToken.py\" 880) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/CToken.py\" 880) add ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/CToken.py\" 879) attr ((\"contracts/CToken.py\" 875) params) \"addAmount\"))))) (approve True True None None True None (\"contracts/CToken.py\" 428) (((\"contracts/CToken.py\" 429) set_type ((\"contracts/CToken.py\" 428) params) (record ((spender \"address\") (value \"nat\")) (Some ((\"spender\") (\"value\"))) (\"contracts/CToken.py\" 429))) ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 434) verify ((\"contracts/CToken.py\" 434) or ((\"contracts/CToken.py\" 434) contains ((\"contracts/CToken.py\" 434) attr ((\"contracts/CToken.py\" 434) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"approvals\") ((\"contracts/CToken.py\" 434) attr ((\"contracts/CToken.py\" 428) params) \"spender\")) ((\"contracts/CToken.py\" 435) lt ((\"contracts/CToken.py\" 435) size ((\"contracts/CToken.py\" 435) attr ((\"contracts/CToken.py\" 435) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"approvals\")) ((\"contracts/CToken.py\" 435) literal (intOrNat 1000)))) ((\"contracts/CToken.py\" 434) literal (string \"FA1.2_MaxApprovalsReached\"))) ((\"contracts/CToken.py\" 439) verify ((\"contracts/CToken.py\" 439) or ((\"contracts/CToken.py\" 439) eq ((\"contracts/CToken.py\" 437) get_item_default ((\"contracts/CToken.py\" 437) attr ((\"contracts/CToken.py\" 437) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"approvals\") ((\"contracts/CToken.py\" 434) attr ((\"contracts/CToken.py\" 428) params) \"spender\") ((\"contracts/CToken.py\" 437) literal (intOrNat 0))) ((\"contracts/CToken.py\" 439) literal (intOrNat 0))) ((\"contracts/CToken.py\" 439) eq ((\"contracts/CToken.py\" 439) attr ((\"contracts/CToken.py\" 428) params) \"value\") ((\"contracts/CToken.py\" 439) literal (intOrNat 0)))) ((\"contracts/CToken.py\" 439) literal (string \"FA1.2_UnsafeAllowanceChange\"))) ((\"contracts/CToken.py\" 441) if_block ((\"contracts/CToken.py\" 441) eq ((\"contracts/CToken.py\" 439) attr ((\"contracts/CToken.py\" 428) params) \"value\") ((\"contracts/CToken.py\" 441) literal (intOrNat 0))) (((\"contracts/CToken.py\" 442) del_item ((\"contracts/CToken.py\" 442) attr ((\"contracts/CToken.py\" 442) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"approvals\") ((\"contracts/CToken.py\" 434) attr ((\"contracts/CToken.py\" 428) params) \"spender\")))) (else_block (((\"contracts/CToken.py\" 444) set ((\"contracts/CToken.py\" 444) get_item ((\"contracts/CToken.py\" 444) attr ((\"contracts/CToken.py\" 444) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"approvals\") ((\"contracts/CToken.py\" 434) attr ((\"contracts/CToken.py\" 428) params) \"spender\")) ((\"contracts/CToken.py\" 439) attr ((\"contracts/CToken.py\" 428) params) \"value\")))))) (borrow True None None None True None (\"contracts/CToken.py\" 181) (((\"contracts/CToken.py\" 182) set_type ((\"contracts/CToken.py\" 181) params) \"nat\") ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 416) if_block ((\"contracts/CToken.py\" 416) not ((\"contracts/CToken.py\" 416) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender))) (((\"contracts/CToken.py\" 417) set ((\"contracts/CToken.py\" 417) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 417) record (accountBorrows ((\"contracts/CToken.py\" 418) record (interestIndex ((\"contracts/CToken.py\" 418) literal (nat 0))) (principal ((\"contracts/CToken.py\" 418) literal (nat 0))))) (approvals ((\"contracts/CToken.py\" 417) map )) (balance ((\"contracts/CToken.py\" 417) literal (nat 0))))))) ((\"contracts/CToken.py\" 203) set ((\"contracts/CToken.py\" 203) operations) ((\"contracts/CToken.py\" 203) cons ((\"contracts/CToken.py\" 203) transfer ((\"contracts/CToken.py\" 201) record (borrowAmount ((\"contracts/CToken.py\" 181) params)) (borrower ((\"\" -1) sender)) (cToken ((\"\" -1) self_address))) ((\"contracts/CToken.py\" 203) literal (mutez 0)) ((\"contracts/CToken.py\" 199) open_variant ((\"contracts/CToken.py\" 199) contract \"borrowAllowed\" (record ((borrowAmount \"nat\") (borrower \"address\") (cToken \"address\")) (Some ((\"cToken\") ((\"borrower\") (\"borrowAmount\")))) (\"contracts/interfaces/ComptrollerInterface.py\" 9)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 203) operations))) ((\"contracts/CToken.py\" 914) verify ((\"contracts/CToken.py\" 914) ge ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 181) params)) ((\"contracts/CToken.py\" 914) literal (string \"CT_INSUFFICIENT_CASH\"))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) self_address)) (to_ ((\"\" -1) sender)) (value ((\"contracts/CToken.py\" 181) params))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))) ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/CToken.py\" 193) set ((\"contracts/CToken.py\" 193) attr ((\"contracts/CToken.py\" 193) attr ((\"contracts/CToken.py\" 193) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") \"principal\") ((\"contracts/CToken.py\" 191) add ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 181) params))) ((\"contracts/CToken.py\" 194) set ((\"contracts/CToken.py\" 194) attr ((\"contracts/CToken.py\" 194) attr ((\"contracts/CToken.py\" 194) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") \"interestIndex\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 195) set ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/CToken.py\" 195) add ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/CToken.py\" 181) params))))) (borrowBalanceStored True None None None True None (\"contracts/CToken.py\" 574) ((bind \"__s1\" (((\"contracts/CToken.py\" 575) set_type ((\"\" -1) first ((\"contracts/CToken.py\" 574) params)) \"address\") ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 574) params))) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 574) params))) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/CToken.py\" 576) result ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 574) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 574) transfer ((\"\" -1) get_local \"__s1\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 574) params))) ((\"\" -1) operations))))) (doAccrueInterest True True None None True None (\"contracts/CToken.py\" 720) (((\"contracts/CToken.py\" 721) set_type ((\"contracts/CToken.py\" 720) params) \"nat\") ((\"contracts/CToken.py\" 926) verify ((\"contracts/CToken.py\" 926) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 711) attr ((\"\" -1) data) \"interestRateModel\")) ((\"contracts/CToken.py\" 926) literal (string \"CT_SENDER_NOT_IRM\"))) ((\"contracts/utils/OperationProtector.py\" 43) verify ((\"contracts/utils/OperationProtector.py\" 43) contains ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 17) literal (nat 8))) ((\"contracts/utils/OperationProtector.py\" 43) literal (string \"OP_NOT_ACTIVE\"))) ((\"contracts/utils/OperationProtector.py\" 49) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 17) literal (nat 8)) False) ((\"contracts/CToken.py\" 724) verify ((\"contracts/CToken.py\" 724) le ((\"contracts/CToken.py\" 720) params) ((\"contracts/CToken.py\" 725) attr ((\"\" -1) data) \"borrowRateMaxMantissa\")) ((\"contracts/CToken.py\" 724) literal (string \"CT_INVALID_BORROW_RATE\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 720) params) \"nat\") ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 720) params))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 727) open_variant ((\"contracts/CToken.py\" 727) is_nat ((\"contracts/CToken.py\" 727) sub ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 720) params) ((\"contracts/CToken.py\" 727) open_variant ((\"contracts/CToken.py\" 727) is_nat ((\"contracts/CToken.py\" 727) sub ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\"))) \"Some\" \"None\")) \"nat\") ((\"contracts/CToken.py\" 729) define_local \"compute_CToken_729\" ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 720) params) ((\"contracts/CToken.py\" 727) open_variant ((\"contracts/CToken.py\" 727) is_nat ((\"contracts/CToken.py\" 727) sub ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\"))) \"Some\" \"None\")))) True) ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/utils/Exponential.py\" 219) attr ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") \"mantissa\") ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/utils/Exponential.py\" 219) attr ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") \"mantissa\") ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 731) define_local \"compute_CToken_731\" ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/utils/Exponential.py\" 219) attr ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") \"mantissa\") ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/CToken.py\" 733) set ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/CToken.py\" 733) add ((\"contracts/CToken.py\" 731) get_local \"compute_CToken_731\") ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\"))) ((\"contracts/utils/Exponential.py\" 87) set_type ((\"contracts/CToken.py\" 734) record (mantissa ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 88) set_type ((\"contracts/CToken.py\" 731) get_local \"compute_CToken_731\") \"nat\") ((\"contracts/utils/Exponential.py\" 89) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/CToken.py\" 734) record (mantissa ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/CToken.py\" 734) record (mantissa ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 731) get_local \"compute_CToken_731\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\") ((\"contracts/CToken.py\" 731) get_local \"compute_CToken_731\")) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\") ((\"contracts/CToken.py\" 731) get_local \"compute_CToken_731\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 734) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/utils/Exponential.py\" 90) add ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\") ((\"contracts/CToken.py\" 731) get_local \"compute_CToken_731\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) ((\"contracts/utils/Exponential.py\" 87) set_type ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 88) set_type ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\") \"nat\") ((\"contracts/utils/Exponential.py\" 89) set_type ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/utils/Exponential.py\" 219) attr ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") \"mantissa\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/utils/Exponential.py\" 219) attr ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") \"mantissa\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 737) set ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\") ((\"contracts/utils/Exponential.py\" 90) add ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/utils/Exponential.py\" 219) attr ((\"contracts/CToken.py\" 729) get_local \"compute_CToken_729\") \"mantissa\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\"))) ((\"contracts/CToken.py\" 739) set ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\") ((\"\" -1) level)))) (exchangeRateStored True None None None True None (\"contracts/CToken.py\" 613) ((bind \"__s2\" (((\"contracts/CToken.py\" 614) set_type ((\"\" -1) first ((\"contracts/CToken.py\" 613) params)) \"unit\") ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 633) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 615) result ((\"contracts/CToken.py\" 644) get_local \"excRate\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 613) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 613) transfer ((\"\" -1) get_local \"__s2\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 613) params))) ((\"\" -1) operations))))) (getAccountSnapshot True None None None True None (\"contracts/CToken.py\" 547) ((bind \"__s3\" (((\"contracts/CToken.py\" 533) define_local \"compute_CToken_533\" ((\"contracts/CToken.py\" 533) record (account ((\"\" -1) first ((\"contracts/CToken.py\" 547) params))) (borrowBalance ((\"contracts/CToken.py\" 536) literal (nat 0))) (cTokenBalance ((\"contracts/CToken.py\" 535) literal (nat 0))) (exchangeRateMantissa ((\"contracts/CToken.py\" 537) literal (nat 0)))) True) ((\"contracts/CToken.py\" 539) if_block ((\"contracts/CToken.py\" 539) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 547) params))) (((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 541) set ((\"contracts/CToken.py\" 541) attr ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\") \"cTokenBalance\") ((\"contracts/CToken.py\" 541) attr ((\"contracts/CToken.py\" 541) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 547) params))) \"balance\")) ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 547) params))) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 547) params))) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/CToken.py\" 542) set ((\"contracts/CToken.py\" 542) attr ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\") \"borrowBalance\") ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\")) ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 633) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 543) set ((\"contracts/CToken.py\" 543) attr ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\") \"exchangeRateMantissa\") ((\"contracts/CToken.py\" 644) get_local \"excRate\")))) ((\"contracts/CToken.py\" 548) result ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 547) params)) (contract (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) None (\"contracts/interfaces/CTokenInterface.py\" 21)))) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 547) transfer ((\"\" -1) get_local \"__s3\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 547) params))) ((\"\" -1) operations))))) (getAllowance True None None None True None (\"contracts/CToken.py\" 514) ((bind \"__s4\" (((\"contracts/CToken.py\" 515) define_local \"result\" ((\"contracts/CToken.py\" 515) literal (intOrNat 0)) True) ((\"contracts/CToken.py\" 516) if_block ((\"contracts/CToken.py\" 516) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 516) attr ((\"\" -1) first ((\"contracts/CToken.py\" 514) params)) \"owner\")) (((\"contracts/CToken.py\" 517) if_block ((\"contracts/CToken.py\" 517) contains ((\"contracts/CToken.py\" 517) attr ((\"contracts/CToken.py\" 517) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 516) attr ((\"\" -1) first ((\"contracts/CToken.py\" 514) params)) \"owner\")) \"approvals\") ((\"contracts/CToken.py\" 517) attr ((\"\" -1) first ((\"contracts/CToken.py\" 514) params)) \"spender\")) (((\"contracts/CToken.py\" 518) set ((\"\" -1) get_local \"result\") ((\"contracts/CToken.py\" 518) get_item ((\"contracts/CToken.py\" 518) attr ((\"contracts/CToken.py\" 518) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 516) attr ((\"\" -1) first ((\"contracts/CToken.py\" 514) params)) \"owner\")) \"approvals\") ((\"contracts/CToken.py\" 517) attr ((\"\" -1) first ((\"contracts/CToken.py\" 514) params)) \"spender\"))))))) ((\"contracts/CToken.py\" 519) result ((\"contracts/CToken.py\" 519) get_local \"result\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 514) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 514) transfer ((\"\" -1) get_local \"__s4\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 514) params))) ((\"\" -1) operations))))) (getBalance True None None None True None (\"contracts/CToken.py\" 454) ((bind \"__s5\" (((\"contracts/CToken.py\" 455) define_local \"result\" ((\"contracts/CToken.py\" 455) literal (intOrNat 0)) True) ((\"contracts/CToken.py\" 456) if_block ((\"contracts/CToken.py\" 456) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 454) params))) (((\"contracts/CToken.py\" 457) set ((\"\" -1) get_local \"result\") ((\"contracts/CToken.py\" 457) attr ((\"contracts/CToken.py\" 457) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 454) params))) \"balance\")))) ((\"contracts/CToken.py\" 458) result ((\"contracts/CToken.py\" 458) get_local \"result\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 454) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 454) transfer ((\"\" -1) get_local \"__s5\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 454) params))) ((\"\" -1) operations))))) (getBalanceOfUnderlying True None None None True None (\"contracts/CToken.py\" 485) ((bind \"__s6\" (((\"contracts/CToken.py\" 486) set_type ((\"\" -1) first ((\"contracts/CToken.py\" 485) params)) \"address\") ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 633) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 489) attr ((\"contracts/CToken.py\" 489) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 485) params))) \"balance\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 489) attr ((\"contracts/CToken.py\" 489) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 485) params))) \"balance\")) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 489) attr ((\"contracts/CToken.py\" 489) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 485) params))) \"balance\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 490) result ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 489) attr ((\"contracts/CToken.py\" 489) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) first ((\"contracts/CToken.py\" 485) params))) \"balance\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\"))))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 485) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 485) transfer ((\"\" -1) get_local \"__s6\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 485) params))) ((\"\" -1) operations))))) (getCash True None None None True None (\"contracts/CToken.py\" 667) ((bind \"__s7\" (((\"contracts/CToken.py\" 668) set_type ((\"\" -1) first ((\"contracts/CToken.py\" 667) params)) \"unit\") ((\"contracts/CToken.py\" 669) result ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 667) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 667) transfer ((\"\" -1) get_local \"__s7\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 667) params))) ((\"\" -1) operations))))) (getTotalSupply True None None None True None (\"contracts/CToken.py\" 500) ((bind \"__s8\" (((\"contracts/CToken.py\" 501) set_type ((\"\" -1) first ((\"contracts/CToken.py\" 500) params)) \"unit\") ((\"contracts/CToken.py\" 502) result ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")))) ((\"\" -1) set_type ((\"\" -1) second ((\"contracts/CToken.py\" 500) params)) (contract \"nat\")) ((\"\" -1) set ((\"\" -1) operations) ((\"\" -1) cons ((\"contracts/CToken.py\" 500) transfer ((\"\" -1) get_local \"__s8\") ((\"\" -1) literal (mutez 0)) ((\"\" -1) second ((\"contracts/CToken.py\" 500) params))) ((\"\" -1) operations))))) (hardResetOp True True None None True None (\"contracts/utils/OperationProtector.py\" 56) (((\"contracts/utils/OperationProtector.py\" 57) set_type ((\"contracts/utils/OperationProtector.py\" 56) params) \"unit\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/utils/OperationProtector.py\" 59) set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 59) set )))) (liquidateBorrow True None None None True None (\"contracts/CToken.py\" 331) (((\"contracts/CToken.py\" 332) set_type ((\"contracts/CToken.py\" 331) params) (record ((borrower \"address\") (cTokenCollateral \"address\") (repayAmount \"nat\")) None (\"contracts/interfaces/CTokenInterface.py\" 27))) ((\"contracts/CToken.py\" 343) set ((\"contracts/CToken.py\" 343) operations) ((\"contracts/CToken.py\" 343) cons ((\"contracts/CToken.py\" 343) transfer ((\"contracts/CToken.py\" 341) record (borrower ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) (cTokenBorrowed ((\"\" -1) self_address)) (cTokenCollateral ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"cTokenCollateral\")) (liquidator ((\"\" -1) sender)) (repayAmount ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\"))) ((\"contracts/CToken.py\" 343) literal (mutez 0)) ((\"contracts/CToken.py\" 339) open_variant ((\"contracts/CToken.py\" 339) contract \"liquidateBorrowAllowed\" (record ((borrower \"address\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\") (liquidator \"address\") (repayAmount \"nat\")) None (\"contracts/interfaces/ComptrollerInterface.py\" 28)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 343) operations))) ((\"contracts/CToken.py\" 346) verify ((\"contracts/CToken.py\" 346) neq ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 346) literal (string \"CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER\"))) ((\"contracts/CToken.py\" 349) verify ((\"contracts/CToken.py\" 349) gt ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\") ((\"contracts/CToken.py\" 349) literal (intOrNat 0))) ((\"contracts/CToken.py\" 349) literal (string \"CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID\"))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) sender)) (to_ ((\"\" -1) self_address)) (value ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")) \"nat\") ((\"contracts/CToken.py\" 246) set ((\"contracts/CToken.py\" 246) attr ((\"contracts/CToken.py\" 246) attr ((\"contracts/CToken.py\" 246) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) \"accountBorrows\") \"principal\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 248) set ((\"contracts/CToken.py\" 248) attr ((\"contracts/CToken.py\" 248) attr ((\"contracts/CToken.py\" 248) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) \"accountBorrows\") \"interestIndex\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")) \"nat\") ((\"contracts/CToken.py\" 249) set ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 251) if_block ((\"contracts/CToken.py\" 251) eq ((\"contracts/CToken.py\" 251) attr ((\"contracts/CToken.py\" 251) attr ((\"contracts/CToken.py\" 251) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) \"accountBorrows\") \"principal\") ((\"contracts/CToken.py\" 251) literal (intOrNat 0))) (((\"contracts/CToken.py\" 254) set ((\"contracts/CToken.py\" 254) operations) ((\"contracts/CToken.py\" 254) cons ((\"contracts/CToken.py\" 254) transfer ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\") ((\"contracts/CToken.py\" 254) literal (mutez 0)) ((\"contracts/CToken.py\" 252) open_variant ((\"contracts/CToken.py\" 252) contract \"removeFromLoans\" \"address\" ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 254) operations))))) ((\"contracts/CToken.py\" 362) verify ((\"contracts/CToken.py\" 362) ge ((\"contracts/CToken.py\" 359) open_variant ((\"contracts/CToken.py\" 359) view \"balanceOf\" ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\") ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"cTokenCollateral\") \"nat\") \"Some\" ((\"contracts/CToken.py\" 359) literal (string \"INVALID BALANCE OF VIEW\"))) ((\"contracts/CToken.py\" 355) open_variant ((\"contracts/CToken.py\" 355) view \"liquidateCalculateSeizeTokens\" ((\"contracts/CToken.py\" 355) record (actualRepayAmount ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")) (cTokenBorrowed ((\"\" -1) self_address)) (cTokenCollateral ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"cTokenCollateral\"))) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\") \"nat\") \"Some\" ((\"contracts/CToken.py\" 355) literal (string \"INVALID LIQUIDATE CALC SEIZE TOKEN VIEW\")))) ((\"contracts/CToken.py\" 362) literal (string \"LIQUIDATE_SEIZE_TOO_MUCH\"))) ((\"contracts/CToken.py\" 366) set ((\"contracts/CToken.py\" 366) operations) ((\"contracts/CToken.py\" 366) cons ((\"contracts/CToken.py\" 366) transfer ((\"contracts/CToken.py\" 366) record (borrower ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"borrower\")) (liquidator ((\"\" -1) sender)) (seizeTokens ((\"contracts/CToken.py\" 355) open_variant ((\"contracts/CToken.py\" 355) view \"liquidateCalculateSeizeTokens\" ((\"contracts/CToken.py\" 355) record (actualRepayAmount ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"repayAmount\")) (cTokenBorrowed ((\"\" -1) self_address)) (cTokenCollateral ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"cTokenCollateral\"))) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\") \"nat\") \"Some\" ((\"contracts/CToken.py\" 355) literal (string \"INVALID LIQUIDATE CALC SEIZE TOKEN VIEW\"))))) ((\"contracts/CToken.py\" 367) literal (mutez 0)) ((\"contracts/CToken.py\" 364) open_variant ((\"contracts/CToken.py\" 364) contract \"seize\" (record ((borrower \"address\") (liquidator \"address\") (seizeTokens \"nat\")) None (\"contracts/interfaces/CTokenInterface.py\" 24)) ((\"contracts/CToken.py\" 334) attr ((\"contracts/CToken.py\" 331) params) \"cTokenCollateral\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 366) operations))))) (mint True None None None True None (\"contracts/CToken.py\" 74) (((\"contracts/CToken.py\" 75) set_type ((\"contracts/CToken.py\" 74) params) \"nat\") ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 416) if_block ((\"contracts/CToken.py\" 416) not ((\"contracts/CToken.py\" 416) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender))) (((\"contracts/CToken.py\" 417) set ((\"contracts/CToken.py\" 417) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 417) record (accountBorrows ((\"contracts/CToken.py\" 418) record (interestIndex ((\"contracts/CToken.py\" 418) literal (nat 0))) (principal ((\"contracts/CToken.py\" 418) literal (nat 0))))) (approvals ((\"contracts/CToken.py\" 417) map )) (balance ((\"contracts/CToken.py\" 417) literal (nat 0))))))) ((\"contracts/CToken.py\" 93) set ((\"contracts/CToken.py\" 93) operations) ((\"contracts/CToken.py\" 93) cons ((\"contracts/CToken.py\" 93) transfer ((\"contracts/CToken.py\" 91) record (cToken ((\"\" -1) self_address)) (mintAmount ((\"contracts/CToken.py\" 74) params)) (minter ((\"\" -1) sender))) ((\"contracts/CToken.py\" 93) literal (mutez 0)) ((\"contracts/CToken.py\" 89) open_variant ((\"contracts/CToken.py\" 89) contract \"mintAllowed\" (record ((cToken \"address\") (mintAmount \"nat\") (minter \"address\")) (Some ((\"cToken\") ((\"minter\") (\"mintAmount\")))) (\"contracts/interfaces/ComptrollerInterface.py\" 7)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 93) operations))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) sender)) (to_ ((\"\" -1) self_address)) (value ((\"contracts/CToken.py\" 74) params))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))) ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 96) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 96) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 96) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 96) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 96) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 96) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 931) define_local \"amount\" ((\"contracts/CToken.py\" 931) literal (nat 0)) True) ((\"contracts/CToken.py\" 932) if_block ((\"contracts/CToken.py\" 932) literal (bool True)) (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 267) set_type ((\"contracts/CToken.py\" 74) params) \"nat\") ((\"contracts/utils/Exponential.py\" 268) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 269) verify ((\"contracts/utils/Exponential.py\" 269) gt ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 269) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 269) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/CToken.py\" 933) define_local \"compute_CToken_933\" ((\"contracts/utils/Exponential.py\" 270) div ((\"contracts/utils/Exponential.py\" 270) mul_homo ((\"contracts/CToken.py\" 74) params) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 644) get_local \"excRate\")) True) ((\"contracts/CToken.py\" 933) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 933) get_local \"compute_CToken_933\")))) (else_block (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 74) params) \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 74) params)) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 74) params)))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 936) define_local \"compute_CToken_936\" ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 74) params)) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/CToken.py\" 936) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 936) get_local \"compute_CToken_936\")))) ((\"contracts/CToken.py\" 84) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 84) add ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 938) get_local \"amount\"))) ((\"contracts/CToken.py\" 85) set ((\"contracts/CToken.py\" 85) attr ((\"contracts/CToken.py\" 85) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"balance\") ((\"contracts/CToken.py\" 85) add ((\"contracts/CToken.py\" 85) attr ((\"contracts/CToken.py\" 85) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"balance\") ((\"contracts/CToken.py\" 938) get_local \"amount\"))))) (redeem True None None None True None (\"contracts/CToken.py\" 116) (((\"contracts/CToken.py\" 117) set_type ((\"contracts/CToken.py\" 116) params) \"nat\") ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 163) set ((\"contracts/CToken.py\" 163) operations) ((\"contracts/CToken.py\" 163) cons ((\"contracts/CToken.py\" 163) transfer ((\"contracts/CToken.py\" 161) record (cToken ((\"\" -1) self_address)) (redeemAmount ((\"contracts/CToken.py\" 116) params)) (redeemer ((\"\" -1) sender))) ((\"contracts/CToken.py\" 163) literal (mutez 0)) ((\"contracts/CToken.py\" 159) open_variant ((\"contracts/CToken.py\" 159) contract \"redeemAllowed\" (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Some ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (\"contracts/interfaces/ComptrollerInterface.py\" 11)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 163) operations))) ((\"contracts/CToken.py\" 941) define_local \"redeem_amount\" ((\"contracts/CToken.py\" 941) literal (nat 0)) True) ((\"contracts/CToken.py\" 942) if_block ((\"contracts/CToken.py\" 120) literal (bool False)) (((\"contracts/CToken.py\" 943) set ((\"\" -1) get_local \"redeem_amount\") ((\"contracts/CToken.py\" 116) params)))) (else_block (((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 946) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 931) define_local \"amount\" ((\"contracts/CToken.py\" 931) literal (nat 0)) True) ((\"contracts/CToken.py\" 932) if_block ((\"contracts/CToken.py\" 932) literal (bool False)) (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 267) set_type ((\"contracts/CToken.py\" 116) params) \"nat\") ((\"contracts/utils/Exponential.py\" 268) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 269) verify ((\"contracts/utils/Exponential.py\" 269) gt ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 269) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 269) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/CToken.py\" 933) define_local \"compute_CToken_933\" ((\"contracts/utils/Exponential.py\" 270) div ((\"contracts/utils/Exponential.py\" 270) mul_homo ((\"contracts/CToken.py\" 116) params) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 644) get_local \"excRate\")) True) ((\"contracts/CToken.py\" 933) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 933) get_local \"compute_CToken_933\")))) (else_block (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 116) params) \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 116) params)) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 116) params)))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 936) define_local \"compute_CToken_936\" ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 116) params)) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/CToken.py\" 936) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 936) get_local \"compute_CToken_936\")))) ((\"contracts/CToken.py\" 945) set ((\"\" -1) get_local \"redeem_amount\") ((\"contracts/CToken.py\" 938) get_local \"amount\")))) ((\"contracts/CToken.py\" 950) define_local \"redeem_tokens\" ((\"contracts/CToken.py\" 950) literal (nat 0)) True) ((\"contracts/CToken.py\" 951) if_block ((\"contracts/CToken.py\" 120) literal (bool False)) (((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 952) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 931) define_local \"amount\" ((\"contracts/CToken.py\" 931) literal (nat 0)) True) ((\"contracts/CToken.py\" 932) if_block ((\"contracts/CToken.py\" 932) literal (bool True)) (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 267) set_type ((\"contracts/CToken.py\" 116) params) \"nat\") ((\"contracts/utils/Exponential.py\" 268) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 269) verify ((\"contracts/utils/Exponential.py\" 269) gt ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 269) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 269) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/CToken.py\" 933) define_local \"compute_CToken_933\" ((\"contracts/utils/Exponential.py\" 270) div ((\"contracts/utils/Exponential.py\" 270) mul_homo ((\"contracts/CToken.py\" 116) params) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 644) get_local \"excRate\")) True) ((\"contracts/CToken.py\" 933) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 933) get_local \"compute_CToken_933\")))) (else_block (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 116) params) \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 116) params)) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 116) params)))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 936) define_local \"compute_CToken_936\" ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 116) params)) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/CToken.py\" 936) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 936) get_local \"compute_CToken_936\")))) ((\"contracts/CToken.py\" 952) set ((\"\" -1) get_local \"redeem_tokens\") ((\"contracts/CToken.py\" 938) get_local \"amount\")))) (else_block (((\"contracts/CToken.py\" 954) set ((\"\" -1) get_local \"redeem_tokens\") ((\"contracts/CToken.py\" 116) params)))) ((\"contracts/CToken.py\" 914) verify ((\"contracts/CToken.py\" 914) ge ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 947) get_local \"redeem_amount\")) ((\"contracts/CToken.py\" 914) literal (string \"CT_INSUFFICIENT_CASH\"))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 152) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 152) open_variant ((\"contracts/CToken.py\" 152) is_nat ((\"contracts/CToken.py\" 153) sub ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 955) get_local \"redeem_tokens\"))) \"Some\" ((\"contracts/CToken.py\" 152) literal (string \"Insufficient supply\")))) ((\"contracts/CToken.py\" 154) set ((\"contracts/CToken.py\" 154) attr ((\"contracts/CToken.py\" 154) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"balance\") ((\"contracts/CToken.py\" 154) open_variant ((\"contracts/CToken.py\" 154) is_nat ((\"contracts/CToken.py\" 155) sub ((\"contracts/CToken.py\" 155) attr ((\"contracts/CToken.py\" 155) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"balance\") ((\"contracts/CToken.py\" 955) get_local \"redeem_tokens\"))) \"Some\" ((\"contracts/CToken.py\" 154) literal (string \"Insufficient balance\")))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) self_address)) (to_ ((\"\" -1) sender)) (value ((\"contracts/CToken.py\" 947) get_local \"redeem_amount\"))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))))) (redeemUnderlying True None None None True None (\"contracts/CToken.py\" 138) (((\"contracts/CToken.py\" 139) set_type ((\"contracts/CToken.py\" 138) params) \"nat\") ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 163) set ((\"contracts/CToken.py\" 163) operations) ((\"contracts/CToken.py\" 163) cons ((\"contracts/CToken.py\" 163) transfer ((\"contracts/CToken.py\" 161) record (cToken ((\"\" -1) self_address)) (redeemAmount ((\"contracts/CToken.py\" 138) params)) (redeemer ((\"\" -1) sender))) ((\"contracts/CToken.py\" 163) literal (mutez 0)) ((\"contracts/CToken.py\" 159) open_variant ((\"contracts/CToken.py\" 159) contract \"redeemAllowed\" (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Some ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (\"contracts/interfaces/ComptrollerInterface.py\" 11)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 163) operations))) ((\"contracts/CToken.py\" 941) define_local \"redeem_amount\" ((\"contracts/CToken.py\" 941) literal (nat 0)) True) ((\"contracts/CToken.py\" 942) if_block ((\"contracts/CToken.py\" 142) literal (bool True)) (((\"contracts/CToken.py\" 943) set ((\"\" -1) get_local \"redeem_amount\") ((\"contracts/CToken.py\" 138) params)))) (else_block (((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 946) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 946) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 931) define_local \"amount\" ((\"contracts/CToken.py\" 931) literal (nat 0)) True) ((\"contracts/CToken.py\" 932) if_block ((\"contracts/CToken.py\" 932) literal (bool False)) (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 267) set_type ((\"contracts/CToken.py\" 138) params) \"nat\") ((\"contracts/utils/Exponential.py\" 268) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 269) verify ((\"contracts/utils/Exponential.py\" 269) gt ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 269) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 269) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/CToken.py\" 933) define_local \"compute_CToken_933\" ((\"contracts/utils/Exponential.py\" 270) div ((\"contracts/utils/Exponential.py\" 270) mul_homo ((\"contracts/CToken.py\" 138) params) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 644) get_local \"excRate\")) True) ((\"contracts/CToken.py\" 933) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 933) get_local \"compute_CToken_933\")))) (else_block (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 138) params) \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 138) params)) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 138) params)))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 936) define_local \"compute_CToken_936\" ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 138) params)) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/CToken.py\" 936) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 936) get_local \"compute_CToken_936\")))) ((\"contracts/CToken.py\" 945) set ((\"\" -1) get_local \"redeem_amount\") ((\"contracts/CToken.py\" 938) get_local \"amount\")))) ((\"contracts/CToken.py\" 950) define_local \"redeem_tokens\" ((\"contracts/CToken.py\" 950) literal (nat 0)) True) ((\"contracts/CToken.py\" 951) if_block ((\"contracts/CToken.py\" 142) literal (bool True)) (((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 952) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 952) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 931) define_local \"amount\" ((\"contracts/CToken.py\" 931) literal (nat 0)) True) ((\"contracts/CToken.py\" 932) if_block ((\"contracts/CToken.py\" 932) literal (bool True)) (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 267) set_type ((\"contracts/CToken.py\" 138) params) \"nat\") ((\"contracts/utils/Exponential.py\" 268) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 269) verify ((\"contracts/utils/Exponential.py\" 269) gt ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 269) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 269) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/CToken.py\" 933) define_local \"compute_CToken_933\" ((\"contracts/utils/Exponential.py\" 270) div ((\"contracts/utils/Exponential.py\" 270) mul_homo ((\"contracts/CToken.py\" 138) params) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 644) get_local \"excRate\")) True) ((\"contracts/CToken.py\" 933) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 933) get_local \"compute_CToken_933\")))) (else_block (((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 138) params) \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 138) params)) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 138) params)))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 936) define_local \"compute_CToken_936\" ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 138) params)) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/CToken.py\" 936) set ((\"\" -1) get_local \"amount\") ((\"contracts/CToken.py\" 936) get_local \"compute_CToken_936\")))) ((\"contracts/CToken.py\" 952) set ((\"\" -1) get_local \"redeem_tokens\") ((\"contracts/CToken.py\" 938) get_local \"amount\")))) (else_block (((\"contracts/CToken.py\" 954) set ((\"\" -1) get_local \"redeem_tokens\") ((\"contracts/CToken.py\" 138) params)))) ((\"contracts/CToken.py\" 914) verify ((\"contracts/CToken.py\" 914) ge ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 947) get_local \"redeem_amount\")) ((\"contracts/CToken.py\" 914) literal (string \"CT_INSUFFICIENT_CASH\"))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 152) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 152) open_variant ((\"contracts/CToken.py\" 152) is_nat ((\"contracts/CToken.py\" 153) sub ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 955) get_local \"redeem_tokens\"))) \"Some\" ((\"contracts/CToken.py\" 152) literal (string \"Insufficient supply\")))) ((\"contracts/CToken.py\" 154) set ((\"contracts/CToken.py\" 154) attr ((\"contracts/CToken.py\" 154) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"balance\") ((\"contracts/CToken.py\" 154) open_variant ((\"contracts/CToken.py\" 154) is_nat ((\"contracts/CToken.py\" 155) sub ((\"contracts/CToken.py\" 155) attr ((\"contracts/CToken.py\" 155) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"balance\") ((\"contracts/CToken.py\" 955) get_local \"redeem_tokens\"))) \"Some\" ((\"contracts/CToken.py\" 154) literal (string \"Insufficient balance\")))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) self_address)) (to_ ((\"\" -1) sender)) (value ((\"contracts/CToken.py\" 947) get_local \"redeem_amount\"))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))))) (reduceReserves True None None None True None (\"contracts/CToken.py\" 888) (((\"contracts/CToken.py\" 889) set_type ((\"contracts/CToken.py\" 888) params) \"nat\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/utils/OperationProtector.py\" 40) verify ((\"contracts/utils/OperationProtector.py\" 40) eq ((\"contracts/utils/OperationProtector.py\" 40) size ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\")) ((\"contracts/utils/OperationProtector.py\" 40) literal (intOrNat 0))) ((\"contracts/utils/OperationProtector.py\" 40) literal (string \"OP_IN_PROGRESS\"))) ((\"contracts/utils/OperationProtector.py\" 46) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 21) literal (nat 12)) True) ((\"contracts/CToken.py\" 892) set ((\"contracts/CToken.py\" 892) operations) ((\"contracts/CToken.py\" 892) cons ((\"contracts/CToken.py\" 892) transfer ((\"\" -1) literal (unit)) ((\"contracts/CToken.py\" 892) literal (mutez 0)) ((\"contracts/CToken.py\" 893) self \"accrueInterest\")) ((\"contracts/CToken.py\" 892) operations))) ((\"contracts/CToken.py\" 894) set ((\"contracts/CToken.py\" 894) operations) ((\"contracts/CToken.py\" 894) cons ((\"contracts/CToken.py\" 894) transfer ((\"contracts/CToken.py\" 888) params) ((\"\" -1) amount) ((\"contracts/CToken.py\" 894) self \"reduceReservesInternal\")) ((\"contracts/CToken.py\" 894) operations))))) (reduceReservesInternal True True None None True None (\"contracts/CToken.py\" 898) (((\"contracts/CToken.py\" 920) verify ((\"contracts/CToken.py\" 920) eq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 920) literal (string \"CT_INTERNAL_FUNCTION\"))) ((\"contracts/utils/OperationProtector.py\" 43) verify ((\"contracts/utils/OperationProtector.py\" 43) contains ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 21) literal (nat 12))) ((\"contracts/utils/OperationProtector.py\" 43) literal (string \"OP_NOT_ACTIVE\"))) ((\"contracts/utils/OperationProtector.py\" 49) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 21) literal (nat 12)) False) ((\"contracts/CToken.py\" 914) verify ((\"contracts/CToken.py\" 914) ge ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 898) params)) ((\"contracts/CToken.py\" 914) literal (string \"CT_INSUFFICIENT_CASH\"))) ((\"contracts/CToken.py\" 902) verify ((\"contracts/CToken.py\" 902) le ((\"contracts/CToken.py\" 898) params) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\")) ((\"contracts/CToken.py\" 902) literal (string \"CT_REDUCE_AMOUNT\"))) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 898) params) \"nat\") ((\"contracts/CToken.py\" 905) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/CToken.py\" 898) params))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) self_address)) (to_ ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) (value ((\"contracts/CToken.py\" 898) params))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))))) (removePendingGovernance True True None None True None (\"contracts/CToken.py\" 791) (((\"contracts/CToken.py\" 792) set_type ((\"contracts/CToken.py\" 791) params) \"unit\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/CToken.py\" 794) set ((\"contracts/CToken.py\" 778) attr ((\"\" -1) data) \"pendingAdministrator\") ((\"\" -1) variant \"None\" ((\"\" -1) literal (unit)))))) (repayBorrow True None None None True None (\"contracts/CToken.py\" 214) (((\"contracts/CToken.py\" 215) set_type ((\"contracts/CToken.py\" 214) params) \"nat\") ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 416) if_block ((\"contracts/CToken.py\" 416) not ((\"contracts/CToken.py\" 416) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender))) (((\"contracts/CToken.py\" 417) set ((\"contracts/CToken.py\" 417) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 417) record (accountBorrows ((\"contracts/CToken.py\" 418) record (interestIndex ((\"contracts/CToken.py\" 418) literal (nat 0))) (principal ((\"contracts/CToken.py\" 418) literal (nat 0))))) (approvals ((\"contracts/CToken.py\" 417) map )) (balance ((\"contracts/CToken.py\" 417) literal (nat 0))))))) ((\"contracts/CToken.py\" 262) set ((\"contracts/CToken.py\" 262) operations) ((\"contracts/CToken.py\" 262) cons ((\"contracts/CToken.py\" 262) transfer ((\"contracts/CToken.py\" 260) record (borrower ((\"\" -1) sender)) (cToken ((\"\" -1) self_address)) (payer ((\"\" -1) sender)) (repayAmount ((\"contracts/CToken.py\" 214) params))) ((\"contracts/CToken.py\" 262) literal (mutez 0)) ((\"contracts/CToken.py\" 258) open_variant ((\"contracts/CToken.py\" 258) contract \"repayBorrowAllowed\" (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Some ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (\"contracts/interfaces/ComptrollerInterface.py\" 13)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 262) operations))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) sender)) (to_ ((\"\" -1) self_address)) (value ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 214) params)))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 214) params)) \"nat\") ((\"contracts/CToken.py\" 246) set ((\"contracts/CToken.py\" 246) attr ((\"contracts/CToken.py\" 246) attr ((\"contracts/CToken.py\" 246) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") \"principal\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 214) params)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 248) set ((\"contracts/CToken.py\" 248) attr ((\"contracts/CToken.py\" 248) attr ((\"contracts/CToken.py\" 248) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") \"interestIndex\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 214) params)) \"nat\") ((\"contracts/CToken.py\" 249) set ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 214) params)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 251) if_block ((\"contracts/CToken.py\" 251) eq ((\"contracts/CToken.py\" 251) attr ((\"contracts/CToken.py\" 251) attr ((\"contracts/CToken.py\" 251) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) \"accountBorrows\") \"principal\") ((\"contracts/CToken.py\" 251) literal (intOrNat 0))) (((\"contracts/CToken.py\" 254) set ((\"contracts/CToken.py\" 254) operations) ((\"contracts/CToken.py\" 254) cons ((\"contracts/CToken.py\" 254) transfer ((\"\" -1) sender) ((\"contracts/CToken.py\" 254) literal (mutez 0)) ((\"contracts/CToken.py\" 252) open_variant ((\"contracts/CToken.py\" 252) contract \"removeFromLoans\" \"address\" ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 254) operations))))))) (repayBorrowBehalf True None None None True None (\"contracts/CToken.py\" 232) (((\"contracts/CToken.py\" 233) set_type ((\"contracts/CToken.py\" 232) params) (record ((borrower \"address\") (repayAmount \"nat\")) None (\"contracts/CToken.py\" 233))) ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 416) if_block ((\"contracts/CToken.py\" 416) not ((\"contracts/CToken.py\" 416) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender))) (((\"contracts/CToken.py\" 417) set ((\"contracts/CToken.py\" 417) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 417) record (accountBorrows ((\"contracts/CToken.py\" 418) record (interestIndex ((\"contracts/CToken.py\" 418) literal (nat 0))) (principal ((\"contracts/CToken.py\" 418) literal (nat 0))))) (approvals ((\"contracts/CToken.py\" 417) map )) (balance ((\"contracts/CToken.py\" 417) literal (nat 0))))))) ((\"contracts/CToken.py\" 262) set ((\"contracts/CToken.py\" 262) operations) ((\"contracts/CToken.py\" 262) cons ((\"contracts/CToken.py\" 262) transfer ((\"contracts/CToken.py\" 260) record (borrower ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\")) (cToken ((\"\" -1) self_address)) (payer ((\"\" -1) sender)) (repayAmount ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"repayAmount\"))) ((\"contracts/CToken.py\" 262) literal (mutez 0)) ((\"contracts/CToken.py\" 258) open_variant ((\"contracts/CToken.py\" 258) contract \"repayBorrowAllowed\" (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Some ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (\"contracts/interfaces/ComptrollerInterface.py\" 13)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 262) operations))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\")) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\")) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) sender)) (to_ ((\"\" -1) self_address)) (value ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"repayAmount\")))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"repayAmount\")) \"nat\") ((\"contracts/CToken.py\" 246) set ((\"contracts/CToken.py\" 246) attr ((\"contracts/CToken.py\" 246) attr ((\"contracts/CToken.py\" 246) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\")) \"accountBorrows\") \"principal\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"repayAmount\")))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 248) set ((\"contracts/CToken.py\" 248) attr ((\"contracts/CToken.py\" 248) attr ((\"contracts/CToken.py\" 248) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\")) \"accountBorrows\") \"interestIndex\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"repayAmount\")) \"nat\") ((\"contracts/CToken.py\" 249) set ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\") ((\"contracts/CToken.py\" 244) min ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"repayAmount\")))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 251) if_block ((\"contracts/CToken.py\" 251) eq ((\"contracts/CToken.py\" 251) attr ((\"contracts/CToken.py\" 251) attr ((\"contracts/CToken.py\" 251) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\")) \"accountBorrows\") \"principal\") ((\"contracts/CToken.py\" 251) literal (intOrNat 0))) (((\"contracts/CToken.py\" 254) set ((\"contracts/CToken.py\" 254) operations) ((\"contracts/CToken.py\" 254) cons ((\"contracts/CToken.py\" 254) transfer ((\"contracts/CToken.py\" 237) attr ((\"contracts/CToken.py\" 232) params) \"borrower\") ((\"contracts/CToken.py\" 254) literal (mutez 0)) ((\"contracts/CToken.py\" 252) open_variant ((\"contracts/CToken.py\" 252) contract \"removeFromLoans\" \"address\" ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 254) operations))))))) (seize True None None None True None (\"contracts/CToken.py\" 274) (((\"contracts/CToken.py\" 275) set_type ((\"contracts/CToken.py\" 274) params) (record ((borrower \"address\") (liquidator \"address\") (seizeTokens \"nat\")) None (\"contracts/interfaces/CTokenInterface.py\" 24))) ((\"contracts/CToken.py\" 416) if_block ((\"contracts/CToken.py\" 416) not ((\"contracts/CToken.py\" 416) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 276) attr ((\"contracts/CToken.py\" 274) params) \"liquidator\"))) (((\"contracts/CToken.py\" 417) set ((\"contracts/CToken.py\" 417) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 276) attr ((\"contracts/CToken.py\" 274) params) \"liquidator\")) ((\"contracts/CToken.py\" 417) record (accountBorrows ((\"contracts/CToken.py\" 418) record (interestIndex ((\"contracts/CToken.py\" 418) literal (nat 0))) (principal ((\"contracts/CToken.py\" 418) literal (nat 0))))) (approvals ((\"contracts/CToken.py\" 417) map )) (balance ((\"contracts/CToken.py\" 417) literal (nat 0))))))) ((\"contracts/CToken.py\" 283) verify ((\"contracts/CToken.py\" 281) open_variant ((\"contracts/CToken.py\" 281) view \"seizeAllowed\" ((\"contracts/CToken.py\" 281) record (cTokenBorrowed ((\"\" -1) sender)) (cTokenCollateral ((\"\" -1) self_address))) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\") \"bool\") \"Some\" ((\"contracts/CToken.py\" 281) literal (string \"INVALID SEIZE ALLOWED VIEW\"))) ((\"contracts/CToken.py\" 283) literal (string \"CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION\"))) ((\"contracts/CToken.py\" 285) verify ((\"contracts/CToken.py\" 285) neq ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"borrower\") ((\"contracts/CToken.py\" 276) attr ((\"contracts/CToken.py\" 274) params) \"liquidator\")) ((\"contracts/CToken.py\" 285) literal (string \"CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER\"))) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 290) attr ((\"contracts/CToken.py\" 290) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"borrower\")) \"balance\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 296) attr ((\"\" -1) data) \"protocolSeizeShareMantissa\") \"nat\") ((\"contracts/utils/Exponential.py\" 229) set_type ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\") \"nat\") ((\"contracts/utils/Exponential.py\" 230) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 296) attr ((\"\" -1) data) \"protocolSeizeShareMantissa\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/CToken.py\" 295) define_local \"protocolSeizeTokens\" ((\"contracts/utils/Exponential.py\" 231) div ((\"contracts/utils/Exponential.py\" 231) mul_homo ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\") ((\"contracts/CToken.py\" 296) attr ((\"\" -1) data) \"protocolSeizeShareMantissa\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) True) ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 299) get_local \"protocolSeizeTokens\") \"nat\") ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 633) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 714) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/CToken.py\" 644) get_local \"excRate\") \"nat\") ((\"contracts/utils/Exponential.py\" 73) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 217) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/CToken.py\" 644) get_local \"excRate\"))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 218) set_type ((\"contracts/CToken.py\" 304) get_local \"protocolSeizeTokens\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 304) get_local \"protocolSeizeTokens\")) \"nat\") ((\"contracts/utils/Exponential.py\" 60) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 304) get_local \"protocolSeizeTokens\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 169) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") \"nat\") ((\"contracts/utils/Exponential.py\" 170) set_type ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 304) get_local \"protocolSeizeTokens\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 310) get_local \"protocolSeizeTokens\") \"nat\") ((\"contracts/utils/Exponential.py\" 169) set_type ((\"contracts/CToken.py\" 291) attr ((\"contracts/CToken.py\" 291) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 276) attr ((\"contracts/CToken.py\" 274) params) \"liquidator\")) \"balance\") \"nat\") ((\"contracts/utils/Exponential.py\" 170) set_type ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\") ((\"contracts/CToken.py\" 299) get_local \"protocolSeizeTokens\"))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) \"nat\") ((\"contracts/CToken.py\" 315) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/utils/Exponential.py\" 171) add ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalReserves\") ((\"contracts/utils/Exponential.py\" 61) div ((\"contracts/utils/Exponential.py\" 219) mul_homo ((\"contracts/CToken.py\" 644) get_local \"excRate\") ((\"contracts/CToken.py\" 304) get_local \"protocolSeizeTokens\")) ((\"contracts/utils/Exponential.py\" 61) attr ((\"\" -1) data) \"expScale\")))) ((\"contracts/CToken.py\" 316) set ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 26) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 310) get_local \"protocolSeizeTokens\"))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 317) set ((\"contracts/CToken.py\" 317) attr ((\"contracts/CToken.py\" 317) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"borrower\")) \"balance\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 290) attr ((\"contracts/CToken.py\" 290) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"borrower\")) \"balance\") ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\"))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((\"contracts/CToken.py\" 318) set ((\"contracts/CToken.py\" 318) attr ((\"contracts/CToken.py\" 318) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 276) attr ((\"contracts/CToken.py\" 274) params) \"liquidator\")) \"balance\") ((\"contracts/utils/Exponential.py\" 171) add ((\"contracts/CToken.py\" 291) attr ((\"contracts/CToken.py\" 291) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 276) attr ((\"contracts/CToken.py\" 274) params) \"liquidator\")) \"balance\") ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CToken.py\" 277) attr ((\"contracts/CToken.py\" 274) params) \"seizeTokens\") ((\"contracts/CToken.py\" 299) get_local \"protocolSeizeTokens\"))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))))))) (setCash True True None None True None (\"contracts/CFA12.py\" 36) (((\"contracts/CFA12.py\" 37) set_type ((\"contracts/CFA12.py\" 36) params) \"nat\") ((\"contracts/utils/OperationProtector.py\" 43) verify ((\"contracts/utils/OperationProtector.py\" 43) contains ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 22) literal (nat 13))) ((\"contracts/utils/OperationProtector.py\" 43) literal (string \"OP_NOT_ACTIVE\"))) ((\"contracts/utils/OperationProtector.py\" 49) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 22) literal (nat 13)) False) ((\"contracts/CFA12.py\" 39) verify ((\"contracts/CFA12.py\" 39) eq ((\"\" -1) sender) ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) ((\"contracts/CFA12.py\" 39) literal (string \"CT_INVALID_CASH_SENDER\"))) ((\"contracts/CFA12.py\" 41) set ((\"contracts/CFA12.py\" 25) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CFA12.py\" 36) params)))) (setComptroller True True None None True None (\"contracts/CToken.py\" 804) (((\"contracts/CToken.py\" 805) set_type ((\"contracts/CToken.py\" 804) params) \"address\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/CToken.py\" 807) set ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\") ((\"contracts/CToken.py\" 804) params)))) (setInterestRateModel True None None None True None (\"contracts/CToken.py\" 817) (((\"contracts/CToken.py\" 818) set_type ((\"contracts/CToken.py\" 817) params) \"address\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/utils/OperationProtector.py\" 40) verify ((\"contracts/utils/OperationProtector.py\" 40) eq ((\"contracts/utils/OperationProtector.py\" 40) size ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\")) ((\"contracts/utils/OperationProtector.py\" 40) literal (intOrNat 0))) ((\"contracts/utils/OperationProtector.py\" 40) literal (string \"OP_IN_PROGRESS\"))) ((\"contracts/utils/OperationProtector.py\" 46) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 18) literal (nat 9)) True) ((\"contracts/CToken.py\" 821) set ((\"contracts/CToken.py\" 821) operations) ((\"contracts/CToken.py\" 821) cons ((\"contracts/CToken.py\" 821) transfer ((\"\" -1) literal (unit)) ((\"contracts/CToken.py\" 821) literal (mutez 0)) ((\"contracts/CToken.py\" 822) self \"accrueInterest\")) ((\"contracts/CToken.py\" 821) operations))) ((\"contracts/CToken.py\" 823) set ((\"contracts/CToken.py\" 823) operations) ((\"contracts/CToken.py\" 823) cons ((\"contracts/CToken.py\" 823) transfer ((\"contracts/CToken.py\" 817) params) ((\"contracts/CToken.py\" 823) literal (mutez 0)) ((\"contracts/CToken.py\" 824) self \"setInterestRateModelInternal\")) ((\"contracts/CToken.py\" 823) operations))))) (setInterestRateModelInternal True True None None True None (\"contracts/CToken.py\" 827) (((\"contracts/CToken.py\" 828) set_type ((\"contracts/CToken.py\" 827) params) \"address\") ((\"contracts/CToken.py\" 920) verify ((\"contracts/CToken.py\" 920) eq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 920) literal (string \"CT_INTERNAL_FUNCTION\"))) ((\"contracts/utils/OperationProtector.py\" 43) verify ((\"contracts/utils/OperationProtector.py\" 43) contains ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 18) literal (nat 9))) ((\"contracts/utils/OperationProtector.py\" 43) literal (string \"OP_NOT_ACTIVE\"))) ((\"contracts/utils/OperationProtector.py\" 49) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 18) literal (nat 9)) False) ((\"contracts/CToken.py\" 831) set ((\"contracts/CToken.py\" 711) attr ((\"\" -1) data) \"interestRateModel\") ((\"contracts/CToken.py\" 827) params)))) (setPendingGovernance True True None None True None (\"contracts/CToken.py\" 751) (((\"contracts/CToken.py\" 752) set_type ((\"contracts/CToken.py\" 751) params) \"address\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/CToken.py\" 754) set ((\"contracts/CToken.py\" 778) attr ((\"\" -1) data) \"pendingAdministrator\") ((\"contracts/CToken.py\" 754) variant \"Some\" ((\"contracts/CToken.py\" 751) params))))) (setReserveFactor True None None None True None (\"contracts/CToken.py\" 841) (((\"contracts/CToken.py\" 842) set_type ((\"contracts/CToken.py\" 841) params) \"nat\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/utils/OperationProtector.py\" 40) verify ((\"contracts/utils/OperationProtector.py\" 40) eq ((\"contracts/utils/OperationProtector.py\" 40) size ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\")) ((\"contracts/utils/OperationProtector.py\" 40) literal (intOrNat 0))) ((\"contracts/utils/OperationProtector.py\" 40) literal (string \"OP_IN_PROGRESS\"))) ((\"contracts/utils/OperationProtector.py\" 46) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 19) literal (nat 10)) True) ((\"contracts/CToken.py\" 845) set ((\"contracts/CToken.py\" 845) operations) ((\"contracts/CToken.py\" 845) cons ((\"contracts/CToken.py\" 845) transfer ((\"\" -1) literal (unit)) ((\"contracts/CToken.py\" 845) literal (mutez 0)) ((\"contracts/CToken.py\" 846) self \"accrueInterest\")) ((\"contracts/CToken.py\" 845) operations))) ((\"contracts/CToken.py\" 847) set ((\"contracts/CToken.py\" 847) operations) ((\"contracts/CToken.py\" 847) cons ((\"contracts/CToken.py\" 847) transfer ((\"contracts/CToken.py\" 841) params) ((\"contracts/CToken.py\" 847) literal (mutez 0)) ((\"contracts/CToken.py\" 848) self \"setReserveFactorInternal\")) ((\"contracts/CToken.py\" 847) operations))))) (setReserveFactorInternal True True None None True None (\"contracts/CToken.py\" 851) (((\"contracts/CToken.py\" 920) verify ((\"contracts/CToken.py\" 920) eq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 920) literal (string \"CT_INTERNAL_FUNCTION\"))) ((\"contracts/utils/OperationProtector.py\" 43) verify ((\"contracts/utils/OperationProtector.py\" 43) contains ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 19) literal (nat 10))) ((\"contracts/utils/OperationProtector.py\" 43) literal (string \"OP_NOT_ACTIVE\"))) ((\"contracts/utils/OperationProtector.py\" 49) update_set ((\"contracts/utils/OperationProtector.py\" 46) attr ((\"\" -1) data) \"activeOperations\") ((\"contracts/utils/OperationProtector.py\" 19) literal (nat 10)) False) ((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 696) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 855) verify ((\"contracts/CToken.py\" 855) le ((\"contracts/CToken.py\" 851) params) ((\"contracts/CToken.py\" 855) attr ((\"\" -1) data) \"reserveFactorMaxMantissa\")) ((\"contracts/CToken.py\" 855) literal (string \"CT_INVALID_RESERVE_FACTOR\"))) ((\"contracts/CToken.py\" 857) set ((\"contracts/CToken.py\" 734) attr ((\"\" -1) data) \"reserveFactorMantissa\") ((\"contracts/CToken.py\" 851) params)))) (sweepFA12 True None None None True None (\"contracts/utils/SweepTokens.py\" 35) (((\"contracts/utils/SweepTokens.py\" 36) set_type ((\"contracts/utils/SweepTokens.py\" 35) params) (record ((amount \"nat\") (tokenAddress \"address\")) None (\"contracts/utils/SweepTokens.py\" 36))) ((\"contracts/CFA12.py\" 52) verify ((\"contracts/CFA12.py\" 52) neq ((\"contracts/utils/SweepTokens.py\" 38) attr ((\"contracts/utils/SweepTokens.py\" 35) params) \"tokenAddress\") ((\"contracts/CFA12.py\" 31) attr ((\"\" -1) data) \"fa1_2_TokenAddress\")) ((\"contracts/CFA12.py\" 52) literal (string \"CT_SWEEP_UNDERLYING\"))) ((\"contracts/utils/TransferTokens.py\" 19) set ((\"contracts/utils/TransferTokens.py\" 19) operations) ((\"contracts/utils/TransferTokens.py\" 19) cons ((\"contracts/utils/TransferTokens.py\" 19) transfer ((\"contracts/utils/TransferTokens.py\" 6) record (from_ ((\"\" -1) self_address)) (to_ ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) (value ((\"contracts/utils/SweepTokens.py\" 40) attr ((\"contracts/utils/SweepTokens.py\" 35) params) \"amount\"))) ((\"contracts/utils/TransferTokens.py\" 19) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 12) open_variant ((\"contracts/utils/TransferTokens.py\" 12) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/utils/TransferTokens.py\" 13)) ((\"contracts/utils/SweepTokens.py\" 38) attr ((\"contracts/utils/SweepTokens.py\" 35) params) \"tokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 19) operations))))) (sweepFA2 True None None None True None (\"contracts/utils/SweepTokens.py\" 51) (((\"contracts/utils/SweepTokens.py\" 52) set_type ((\"contracts/utils/SweepTokens.py\" 51) params) (record ((amount \"nat\") (id \"nat\") (tokenAddress \"address\")) None (\"contracts/utils/SweepTokens.py\" 52))) ((\"contracts/utils/TransferTokens.py\" 45) set ((\"contracts/utils/TransferTokens.py\" 45) operations) ((\"contracts/utils/TransferTokens.py\" 45) cons ((\"contracts/utils/TransferTokens.py\" 45) transfer ((\"contracts/utils/TransferTokens.py\" 45) list ((\"contracts/utils/TransferTokens.py\" 26) record (from_ ((\"\" -1) self_address)) (txs ((\"contracts/utils/TransferTokens.py\" 26) list ((\"contracts/utils/TransferTokens.py\" 29) record (amount ((\"contracts/utils/SweepTokens.py\" 56) attr ((\"contracts/utils/SweepTokens.py\" 51) params) \"amount\")) (to_ ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) (token_id ((\"contracts/utils/SweepTokens.py\" 54) attr ((\"contracts/utils/SweepTokens.py\" 51) params) \"id\"))))))) ((\"contracts/utils/TransferTokens.py\" 45) literal (mutez 0)) ((\"contracts/utils/TransferTokens.py\" 38) open_variant ((\"contracts/utils/TransferTokens.py\" 38) contract \"transfer\" (list (record ((from_ \"address\") (txs (list (record ((amount \"nat\") (to_ \"address\") (token_id \"nat\")) (Some ((\"to_\") ((\"token_id\") (\"amount\")))) (\"contracts/utils/TransferTokens.py\" 22))))) (Some ((\"from_\") (\"txs\"))) (\"contracts/utils/TransferTokens.py\" 39))) ((\"contracts/utils/SweepTokens.py\" 54) attr ((\"contracts/utils/SweepTokens.py\" 51) params) \"tokenAddress\")) \"Some\" \"None\")) ((\"contracts/utils/TransferTokens.py\" 45) operations))))) (sweepMutez True None None None True None (\"contracts/utils/SweepTokens.py\" 16) (((\"contracts/utils/SweepTokens.py\" 17) set_type ((\"contracts/utils/SweepTokens.py\" 16) params) \"bool\") ((\"contracts/utils/SweepTokens.py\" 19) if_block ((\"contracts/utils/SweepTokens.py\" 16) params) (((\"contracts/utils/SweepTokens.py\" 22) set ((\"contracts/utils/SweepTokens.py\" 22) operations) ((\"contracts/utils/SweepTokens.py\" 22) cons ((\"contracts/utils/SweepTokens.py\" 22) transfer ((\"\" -1) literal (unit)) ((\"\" -1) balance) ((\"contracts/utils/SweepTokens.py\" 20) open_variant ((\"contracts/utils/SweepTokens.py\" 20) contract \"receive\" \"unit\" ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) \"Some\" \"None\")) ((\"contracts/utils/SweepTokens.py\" 22) operations))))) (else_block (((\"contracts/utils/SweepTokens.py\" 24) set ((\"contracts/utils/SweepTokens.py\" 24) operations) ((\"contracts/utils/SweepTokens.py\" 24) cons ((\"contracts/utils/SweepTokens.py\" 24) transfer ((\"\" -1) literal (unit)) ((\"\" -1) balance) ((\"contracts/utils/SweepTokens.py\" 24) open_variant ((\"contracts/utils/SweepTokens.py\" 24) contract \"\" \"unit\" ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) \"Some\" \"None\")) ((\"contracts/utils/SweepTokens.py\" 24) operations))))))) (transfer True None None None True None (\"contracts/CToken.py\" 383) (((\"contracts/CToken.py\" 384) set_type ((\"contracts/CToken.py\" 383) params) (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Some ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (\"contracts/CToken.py\" 384))) ((\"contracts/CToken.py\" 386) verify ((\"contracts/CToken.py\" 386) or ((\"contracts/CToken.py\" 386) eq ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 387) ge ((\"contracts/CToken.py\" 387) get_item ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 387) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"approvals\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\"))) ((\"contracts/CToken.py\" 386) literal (string \"FA1.2_NotAllowed\"))) ((\"contracts/CToken.py\" 923) verify ((\"contracts/CToken.py\" 923) neq ((\"\" -1) sender) ((\"\" -1) self_address)) ((\"contracts/CToken.py\" 923) literal (string \"CT_INTERNAL_CALL\"))) ((\"contracts/CToken.py\" 416) if_block ((\"contracts/CToken.py\" 416) not ((\"contracts/CToken.py\" 416) contains ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 389) attr ((\"contracts/CToken.py\" 383) params) \"to_\"))) (((\"contracts/CToken.py\" 417) set ((\"contracts/CToken.py\" 417) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 389) attr ((\"contracts/CToken.py\" 383) params) \"to_\")) ((\"contracts/CToken.py\" 417) record (accountBorrows ((\"contracts/CToken.py\" 418) record (interestIndex ((\"contracts/CToken.py\" 418) literal (nat 0))) (principal ((\"contracts/CToken.py\" 418) literal (nat 0))))) (approvals ((\"contracts/CToken.py\" 417) map )) (balance ((\"contracts/CToken.py\" 417) literal (nat 0))))))) ((\"contracts/CToken.py\" 413) set ((\"contracts/CToken.py\" 413) operations) ((\"contracts/CToken.py\" 413) cons ((\"contracts/CToken.py\" 413) transfer ((\"contracts/CToken.py\" 411) record (cToken ((\"\" -1) self_address)) (dst ((\"contracts/CToken.py\" 389) attr ((\"contracts/CToken.py\" 383) params) \"to_\")) (src ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) (transferTokens ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\"))) ((\"contracts/CToken.py\" 413) literal (mutez 0)) ((\"contracts/CToken.py\" 409) open_variant ((\"contracts/CToken.py\" 409) contract \"transferAllowed\" (record ((cToken \"address\") (dst \"address\") (src \"address\") (transferTokens \"nat\")) (Some (((\"cToken\") (\"src\")) ((\"dst\") (\"transferTokens\")))) (\"contracts/interfaces/ComptrollerInterface.py\" 15)) ((\"contracts/CToken.py\" 199) attr ((\"\" -1) data) \"comptroller\")) \"Some\" \"None\")) ((\"contracts/CToken.py\" 413) operations))) ((\"contracts/CToken.py\" 394) set_type ((\"contracts/CToken.py\" 390) record (from_ ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) (sender ((\"\" -1) sender)) (to_ ((\"contracts/CToken.py\" 389) attr ((\"contracts/CToken.py\" 383) params) \"to_\")) (value ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\"))) (record ((from_ \"address\") (sender \"address\") (to_ \"address\") (value \"nat\")) None (\"contracts/CToken.py\" 394))) ((\"contracts/CToken.py\" 396) verify ((\"contracts/CToken.py\" 396) ge ((\"contracts/CToken.py\" 396) attr ((\"contracts/CToken.py\" 396) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"balance\") ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\")) ((\"contracts/CToken.py\" 396) literal (string \"FA1.2_InsufficientBalance\"))) ((\"contracts/CToken.py\" 398) set ((\"contracts/CToken.py\" 398) attr ((\"contracts/CToken.py\" 398) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"balance\") ((\"contracts/CToken.py\" 398) open_variant ((\"contracts/CToken.py\" 398) is_nat ((\"contracts/CToken.py\" 399) sub ((\"contracts/CToken.py\" 399) attr ((\"contracts/CToken.py\" 399) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"balance\") ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\"))) \"Some\" \"None\")) ((\"contracts/CToken.py\" 400) set ((\"contracts/CToken.py\" 400) attr ((\"contracts/CToken.py\" 400) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 389) attr ((\"contracts/CToken.py\" 383) params) \"to_\")) \"balance\") ((\"contracts/CToken.py\" 400) add ((\"contracts/CToken.py\" 400) attr ((\"contracts/CToken.py\" 400) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 389) attr ((\"contracts/CToken.py\" 383) params) \"to_\")) \"balance\") ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\"))) ((\"contracts/CToken.py\" 401) if_block ((\"contracts/CToken.py\" 401) neq ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\") ((\"\" -1) sender)) (((\"contracts/CToken.py\" 402) set ((\"contracts/CToken.py\" 402) get_item ((\"contracts/CToken.py\" 402) attr ((\"contracts/CToken.py\" 402) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"approvals\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 402) open_variant ((\"contracts/CToken.py\" 402) is_nat ((\"contracts/CToken.py\" 403) sub ((\"contracts/CToken.py\" 403) get_item ((\"contracts/CToken.py\" 403) attr ((\"contracts/CToken.py\" 403) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"approvals\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 387) attr ((\"contracts/CToken.py\" 383) params) \"value\"))) \"Some\" \"None\")) ((\"contracts/CToken.py\" 404) if_block ((\"contracts/CToken.py\" 404) eq ((\"contracts/CToken.py\" 404) get_item ((\"contracts/CToken.py\" 404) attr ((\"contracts/CToken.py\" 404) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"approvals\") ((\"\" -1) sender)) ((\"contracts/CToken.py\" 404) literal (intOrNat 0))) (((\"contracts/CToken.py\" 405) del_item ((\"contracts/CToken.py\" 405) attr ((\"contracts/CToken.py\" 405) get_item ((\"contracts/CToken.py\" 434) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 386) attr ((\"contracts/CToken.py\" 383) params) \"from_\")) \"approvals\") ((\"\" -1) sender)))))))) (updateProtocolSeizeShare True True None None True None (\"contracts/CToken.py\" 762) (((\"contracts/CToken.py\" 763) set_type ((\"contracts/CToken.py\" 762) params) \"nat\") ((\"contracts/CToken.py\" 911) verify ((\"contracts/CToken.py\" 911) eq ((\"\" -1) sender) ((\"contracts/CToken.py\" 780) attr ((\"\" -1) data) \"administrator\")) ((\"contracts/CToken.py\" 911) literal (string \"CT_NOT_ADMIN\"))) ((\"contracts/CToken.py\" 765) set ((\"contracts/CToken.py\" 296) attr ((\"\" -1) data) \"protocolSeizeShareMantissa\") ((\"contracts/CToken.py\" 762) params)))))\nflags ()\nprivates ()\nviews ((onchain accrualBlockNumber True (\"contracts/CToken.py\" 652) False \"\" (((\"contracts/CToken.py\" 653) set_type ((\"contracts/CToken.py\" 652) params) \"unit\") ((\"contracts/CToken.py\" 654) result ((\"contracts/CToken.py\" 654) attr ((\"\" -1) data) \"accrualBlockNumber\")))) (onchain balanceOf True (\"contracts/CToken.py\" 468) False \"\" (((\"contracts/CToken.py\" 469) define_local \"result\" ((\"contracts/CToken.py\" 469) literal (intOrNat 0)) True) ((\"contracts/CToken.py\" 470) if_block ((\"contracts/CToken.py\" 470) contains ((\"contracts/CToken.py\" 470) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 468) params)) (((\"contracts/CToken.py\" 471) set ((\"\" -1) get_local \"result\") ((\"contracts/CToken.py\" 471) attr ((\"contracts/CToken.py\" 471) get_item ((\"contracts/CToken.py\" 470) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 468) params)) \"balance\")))) ((\"contracts/CToken.py\" 472) result ((\"contracts/CToken.py\" 472) get_local \"result\")))) (onchain borrowBalanceStoredView True (\"contracts/CToken.py\" 588) False \"\" (((\"contracts/CToken.py\" 589) set_type ((\"contracts/CToken.py\" 588) params) \"address\") ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 594) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 588) params)) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 594) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 588) params)) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/CToken.py\" 590) result ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\")))) (onchain comptroller True (\"contracts/CToken.py\" 647) False \"\" (((\"contracts/CToken.py\" 648) set_type ((\"contracts/CToken.py\" 647) params) \"unit\") ((\"contracts/CToken.py\" 649) result ((\"contracts/CToken.py\" 649) attr ((\"\" -1) data) \"comptroller\")))) (onchain exchangeRateStoredView True (\"contracts/CToken.py\" 628) False \"\" (((\"contracts/CToken.py\" 629) set_type ((\"contracts/CToken.py\" 628) params) \"unit\") ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 633) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 630) result ((\"contracts/CToken.py\" 644) get_local \"excRate\")))) (onchain getAccountSnapshotView True (\"contracts/CToken.py\" 561) False \"\" (((\"contracts/CToken.py\" 533) define_local \"compute_CToken_533\" ((\"contracts/CToken.py\" 533) record (account ((\"contracts/CToken.py\" 561) params)) (borrowBalance ((\"contracts/CToken.py\" 536) literal (nat 0))) (cTokenBalance ((\"contracts/CToken.py\" 535) literal (nat 0))) (exchangeRateMantissa ((\"contracts/CToken.py\" 537) literal (nat 0)))) True) ((\"contracts/CToken.py\" 539) if_block ((\"contracts/CToken.py\" 539) contains ((\"contracts/CToken.py\" 539) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 561) params)) (((\"contracts/CToken.py\" 917) verify ((\"contracts/CToken.py\" 917) eq ((\"\" -1) level) ((\"contracts/CToken.py\" 917) attr ((\"\" -1) data) \"accrualBlockNumber\")) ((\"contracts/CToken.py\" 917) literal (string \"CT_INTEREST_OLD\"))) ((\"contracts/CToken.py\" 541) set ((\"contracts/CToken.py\" 541) attr ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\") \"cTokenBalance\") ((\"contracts/CToken.py\" 541) attr ((\"contracts/CToken.py\" 541) get_item ((\"contracts/CToken.py\" 539) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 561) params)) \"balance\")) ((\"contracts/CToken.py\" 593) define_local \"borrowBalance\" ((\"contracts/CToken.py\" 593) literal (nat 0)) True) ((\"contracts/CToken.py\" 594) if_block ((\"contracts/CToken.py\" 594) contains ((\"contracts/CToken.py\" 539) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 561) params)) (((\"contracts/CToken.py\" 595) define_local \"borrowSnapshot\" ((\"contracts/CToken.py\" 596) attr ((\"contracts/CToken.py\" 596) get_item ((\"contracts/CToken.py\" 539) attr ((\"\" -1) data) \"balances\") ((\"contracts/CToken.py\" 561) params)) \"accountBorrows\") True) ((\"contracts/CToken.py\" 597) if_block ((\"contracts/CToken.py\" 597) gt ((\"contracts/CToken.py\" 597) attr ((\"contracts/CToken.py\" 597) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 597) literal (intOrNat 0))) (((\"contracts/CToken.py\" 599) set ((\"\" -1) get_local \"borrowBalance\") ((\"contracts/CToken.py\" 599) div ((\"contracts/CToken.py\" 598) mul_homo ((\"contracts/CToken.py\" 598) attr ((\"contracts/CToken.py\" 598) get_local \"borrowSnapshot\") \"principal\") ((\"contracts/CToken.py\" 598) attr ((\"\" -1) data) \"borrowIndex\")) ((\"contracts/CToken.py\" 599) attr ((\"contracts/CToken.py\" 599) get_local \"borrowSnapshot\") \"interestIndex\"))))))) ((\"contracts/CToken.py\" 542) set ((\"contracts/CToken.py\" 542) attr ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\") \"borrowBalance\") ((\"contracts/CToken.py\" 600) get_local \"borrowBalance\")) ((\"contracts/CToken.py\" 636) define_local \"excRate\" ((\"contracts/CToken.py\" 636) attr ((\"\" -1) data) \"initialExchangeRateMantissa\") True) ((\"contracts/CToken.py\" 637) if_block ((\"contracts/CToken.py\" 637) gt ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/CToken.py\" 637) literal (intOrNat 0))) (((\"contracts/utils/Exponential.py\" 193) set_type ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") \"nat\") ((\"contracts/utils/Exponential.py\" 194) set_type ((\"contracts/CToken.py\" 633) literal (nat 0)) \"nat\") ((\"contracts/utils/Exponential.py\" 47) set_type ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")) \"nat\") ((\"contracts/utils/Exponential.py\" 254) set_type ((\"contracts/utils/Exponential.py\" 35) record (mantissa ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")))) (record ((mantissa \"nat\")) None (\"contracts/utils/Exponential.py\" 15))) ((\"contracts/utils/Exponential.py\" 255) set_type ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\") \"nat\") ((\"contracts/utils/Exponential.py\" 256) verify ((\"contracts/utils/Exponential.py\" 256) gt ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\") ((\"contracts/utils/Exponential.py\" 256) literal (intOrNat 0))) ((\"contracts/utils/Exponential.py\" 256) literal (string \"DIVISION_BY_ZERO\"))) ((\"contracts/utils/Exponential.py\" 34) set_type ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\")) \"nat\") ((\"contracts/CToken.py\" 643) set ((\"\" -1) get_local \"excRate\") ((\"contracts/utils/Exponential.py\" 257) div ((\"contracts/utils/Exponential.py\" 48) mul_homo ((\"contracts/CToken.py\" 639) open_variant ((\"contracts/CToken.py\" 639) is_nat ((\"contracts/CToken.py\" 640) sub ((\"contracts/CToken.py\" 640) add ((\"contracts/utils/Exponential.py\" 195) open_variant ((\"contracts/utils/Exponential.py\" 195) is_nat ((\"contracts/utils/Exponential.py\" 195) sub ((\"contracts/CFA12.py\" 22) attr ((\"\" -1) data) \"currentCash\") ((\"contracts/CToken.py\" 633) literal (nat 0)))) \"Some\" ((\"contracts/utils/Exponential.py\" 195) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalBorrows\")) ((\"contracts/CToken.py\" 640) attr ((\"\" -1) data) \"totalReserves\"))) \"Some\" \"None\") ((\"contracts/utils/Exponential.py\" 48) attr ((\"\" -1) data) \"expScale\")) ((\"contracts/CToken.py\" 637) attr ((\"\" -1) data) \"totalSupply\"))))) ((\"contracts/CToken.py\" 543) set ((\"contracts/CToken.py\" 543) attr ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\") \"exchangeRateMantissa\") ((\"contracts/CToken.py\" 644) get_local \"excRate\")))) ((\"contracts/CToken.py\" 562) result ((\"contracts/CToken.py\" 533) get_local \"compute_CToken_533\")))))\nentry_points_layout ()\ninitial_metadata ()\nbalance ())", - "id": "((\"\" -1) static_id 0)", - "line_no": "(\"\" -1)", + "export": "(template_id (None static_id 0) \nstorage ((Some (\"contracts/utils/Exponential.py\" 21)) record (accrualBlockNumber ((Some (\"contracts/CToken.py\" 47)) literal (nat 0))) (activeOperations ((Some (\"contracts/CToken.py\" 72)) type_annotation ((Some (\"contracts/CToken.py\" 72)) set ) (set \"nat\"))) (administrator ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 14)) literal (address \"KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2\"))) (borrowIndex ((Some (\"contracts/CToken.py\" 49)) literal (nat 1000000000000000000))) (borrowRateMaxMantissa ((Some (\"contracts/CToken.py\" 34)) literal (nat 800000000000))) (borrowRatePerBlock ((Some (\"contracts/CToken.py\" 55)) literal (nat 0))) (borrows ((Some (\"contracts/CToken.py\" 31)) type_annotation ((Some (\"contracts/CToken.py\" 31)) big_map ) (big_map \"address\" (record ((interestIndex \"nat\") (principal \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 12)))))) (comptroller ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 11)) literal (address \"KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG\"))) (currentCash ((Some (\"contracts/CFA12.py\" 20)) literal (nat 0))) (expScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 1000000000000000000))) (fa1_2_TokenAddress ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 32)) literal (address \"KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn\"))) (halfExpScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 500000000000000000))) (initialExchangeRateMantissa ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 13)) literal (nat 1000000000000000000))) (interestRateModel ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 12)) literal (address \"KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW\"))) (ledger ((Some (\"contracts/CToken.py\" 24)) type_annotation ((Some (\"contracts/CToken.py\" 24)) big_map ) (big_map \"address\" (record ((approvals (map \"address\" \"nat\")) (balance \"nat\")) Variable (Some (\"contracts/CToken.py\" 24)))))) (metadata ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 16)) big_map ((None literal (string \"\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 17)) literal (bytes \"0x74657a6f732d73746f726167653a64617461\"))) ((None literal (string \"data\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 18)) literal (bytes \"0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d\"))))) (pendingAdministrator (None variant \"None\" (None literal (unit)))) (protocolSeizeShareMantissa ((Some (\"contracts/CToken.py\" 45)) literal (nat 100000000000000))) (reserveFactorMantissa ((Some (\"contracts/CToken.py\" 43)) literal (nat 50000000000000000))) (reserveFactorMaxMantissa ((Some (\"contracts/CToken.py\" 36)) literal (nat 1000000000000000000))) (supplyRatePerBlock ((Some (\"contracts/CToken.py\" 57)) literal (nat 0))) (token_metadata ((Some (\"contracts/CToken.py\" 62)) type_annotation ((Some (\"contracts/CToken.py\" 62)) big_map ((None literal (intOrNat 0)) ((Some (\"contracts/CToken.py\" 64)) record (token_id ((Some (\"contracts/CToken.py\" 64)) literal (intOrNat 0))) (token_info ((Some (\"contracts/CToken.py\" 64)) map ((None literal (string \"name\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 28)) literal (bytes \"0x54657a46696e20496e7465726573742d42656172696e6720747a425443\"))) ((None literal (string \"symbol\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 29)) literal (bytes \"0xea9cb0747a425443\"))) ((None literal (string \"decimals\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 30)) literal (bytes \"0x38\")))))))) (big_map \"nat\" (record ((token_id \"nat\") (token_info (map \"string\" \"bytes\"))) Variable (Some (\"contracts/CToken.py\" 67)))))) (totalBorrows ((Some (\"contracts/CToken.py\" 51)) literal (nat 0))) (totalReserves ((Some (\"contracts/CToken.py\" 53)) literal (nat 0))) (totalSupply ((Some (\"contracts/CToken.py\" 32)) literal (nat 0))))\nstorage_type (())\nentrypoints ((acceptGovernance True (Some True) None None True None (Some (\"contracts/CToken.py\" 808)) (((Some (\"contracts/CToken.py\" 809)) set_type (None parameter) \"unit\") ((Some (\"contracts/CToken.py\" 810)) verify ((Some (\"contracts/CToken.py\" 810)) eq (None sender) ((Some (\"contracts/CToken.py\" 810)) open_variant ((Some (\"contracts/CToken.py\" 810)) attr ((Some (\"contracts/CToken.py\" 810)) storage) \"pendingAdministrator\") \"Some\" ((Some (\"contracts/CToken.py\" 810)) literal (string \"CT_NOT_SET_PENDING_ADMIN\")))) ((Some (\"contracts/CToken.py\" 810)) literal (string \"CT_NOT_PENDING_ADMIN\"))) ((Some (\"contracts/CToken.py\" 812)) set ((Some (\"contracts/CToken.py\" 812)) attr ((Some (\"contracts/CToken.py\" 812)) storage) \"administrator\") ((Some (\"contracts/CToken.py\" 812)) open_variant ((Some (\"contracts/CToken.py\" 812)) attr ((Some (\"contracts/CToken.py\" 812)) storage) \"pendingAdministrator\") \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 813)) set ((Some (\"contracts/CToken.py\" 813)) attr ((Some (\"contracts/CToken.py\" 813)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (accrueInterest True None None None True None (Some (\"contracts/CToken.py\" 725)) (((Some (\"contracts/CToken.py\" 726)) set_type (None parameter) \"unit\") ((Some (\"contracts/CFA12.py\" 27)) define_local \"compute_CFA12_27\" ((Some (\"contracts/CFA12.py\" 27)) add ((Some (\"contracts/CFA12.py\" 27)) add ((Some (\"contracts/CFA12.py\" 27)) attr ((Some (\"contracts/CFA12.py\" 27)) storage) \"currentCash\") ((Some (\"contracts/CFA12.py\" 28)) attr ((Some (\"contracts/CFA12.py\" 28)) storage) \"totalSupply\")) ((Some (\"contracts/CFA12.py\" 28)) attr ((Some (\"contracts/CFA12.py\" 28)) storage) \"totalReserves\")) True) ((Some (\"contracts/CFA12.py\" 30)) if_block ((Some (\"contracts/CFA12.py\" 30)) gt ((Some (\"contracts/CFA12.py\" 27)) var \"compute_CFA12_27\") ((Some (\"contracts/CFA12.py\" 30)) literal (intOrNat 0))) (((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 22)) literal (nat 13)) True) ((Some (\"contracts/CFA12.py\" 34)) set ((Some (\"contracts/CFA12.py\" 34)) operations) ((Some (\"contracts/CFA12.py\" 34)) cons ((Some (\"contracts/CFA12.py\" 34)) transfer ((Some (\"contracts/CFA12.py\" 34)) tuple (None self_address) ((Some (\"contracts/CFA12.py\" 34)) self \"setCash\")) ((Some (\"contracts/CFA12.py\" 35)) literal (mutez 0)) ((Some (\"contracts/CFA12.py\" 33)) open_variant ((Some (\"contracts/CFA12.py\" 32)) contract \"getBalance\" (tuple \"address\" (contract \"nat\")) ((Some (\"contracts/CFA12.py\" 33)) attr ((Some (\"contracts/CFA12.py\" 33)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/CFA12.py\" 34)) operations))))) ((Some (\"contracts/CToken.py\" 728)) if_block ((Some (\"contracts/CToken.py\" 728)) neq (None level) ((Some (\"contracts/CToken.py\" 728)) attr ((Some (\"contracts/CToken.py\" 728)) storage) \"accrualBlockNumber\")) (((Some (\"contracts/CToken.py\" 729)) if_block ((Some (\"contracts/CToken.py\" 729)) eq ((Some (\"contracts/CToken.py\" 729)) attr ((Some (\"contracts/CToken.py\" 729)) storage) \"accrualBlockNumber\") ((Some (\"contracts/CToken.py\" 729)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 730)) set ((Some (\"contracts/CToken.py\" 730)) attr ((Some (\"contracts/CToken.py\" 730)) storage) \"accrualBlockNumber\") (None level)))) (else_block (((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 17)) literal (nat 8)) True) ((Some (\"contracts/CToken.py\" 736)) set ((Some (\"contracts/CToken.py\" 736)) operations) ((Some (\"contracts/CToken.py\" 736)) cons ((Some (\"contracts/CToken.py\" 736)) transfer ((Some (\"contracts/CToken.py\" 736)) self \"doAccrueInterest\") ((Some (\"contracts/CToken.py\" 737)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 735)) open_variant ((Some (\"contracts/CToken.py\" 734)) contract \"accrueInterestInternal\" (contract \"nat\") (None self_address)) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 736)) operations))))))))) (accrueInterestInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 740)) (((Some (\"contracts/CToken.py\" 741)) set_type (None parameter) (contract \"nat\")) ((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/CToken.py\" 749)) set ((Some (\"contracts/CToken.py\" 749)) operations) ((Some (\"contracts/CToken.py\" 749)) cons ((Some (\"contracts/CToken.py\" 749)) transfer ((Some (\"contracts/CToken.py\" 745)) record (borrows ((Some (\"contracts/CToken.py\" 746)) attr ((Some (\"contracts/CToken.py\" 746)) storage) \"totalBorrows\")) (cash ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\")) (cb (None parameter)) (reserves ((Some (\"contracts/CToken.py\" 747)) attr ((Some (\"contracts/CToken.py\" 747)) storage) \"totalReserves\"))) ((Some (\"contracts/CToken.py\" 749)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 744)) open_variant ((Some (\"contracts/CToken.py\" 743)) contract \"getBorrowRate\" (record ((borrows \"nat\") (cash \"nat\") (cb (contract \"nat\")) (reserves \"nat\")) Variable (Some (\"contracts/interfaces/InterestRateModelInterface.py\" 15))) ((Some (\"contracts/CToken.py\" 743)) attr ((Some (\"contracts/CToken.py\" 743)) storage) \"interestRateModel\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 749)) operations))))) (addReserves True None None None True None (Some (\"contracts/CToken.py\" 897)) (((Some (\"contracts/CToken.py\" 898)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 20)) literal (nat 11)) True) ((Some (\"contracts/CToken.py\" 901)) set ((Some (\"contracts/CToken.py\" 901)) operations) ((Some (\"contracts/CToken.py\" 901)) cons ((Some (\"contracts/CToken.py\" 901)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 901)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 902)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 901)) operations))) ((Some (\"contracts/CToken.py\" 903)) set ((Some (\"contracts/CToken.py\" 903)) operations) ((Some (\"contracts/CToken.py\" 903)) cons ((Some (\"contracts/CToken.py\" 903)) transfer ((Some (\"contracts/CToken.py\" 903)) record (addAmount (None parameter)) (originalSender (None sender))) (None amount) ((Some (\"contracts/CToken.py\" 904)) self \"addReservesInternal\")) ((Some (\"contracts/CToken.py\" 903)) operations))))) (addReservesInternal True None None None True None (Some (\"contracts/CToken.py\" 907)) (((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 20)) literal (nat 11))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 20)) literal (nat 11)) False) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ ((Some (\"contracts/CToken.py\" 911)) attr (None parameter) \"originalSender\")) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 911)) attr (None parameter) \"addAmount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/CToken.py\" 912)) set ((Some (\"contracts/CToken.py\" 912)) attr ((Some (\"contracts/CToken.py\" 912)) storage) \"totalReserves\") ((Some (\"contracts/CToken.py\" 912)) add ((Some (\"contracts/CToken.py\" 912)) attr ((Some (\"contracts/CToken.py\" 912)) storage) \"totalReserves\") ((Some (\"contracts/CToken.py\" 911)) attr (None parameter) \"addAmount\"))))) (approve True (Some True) None None True None (Some (\"contracts/CToken.py\" 448)) (((Some (\"contracts/CToken.py\" 449)) set_type (None parameter) (record ((spender \"address\") (value \"nat\")) (Value ((\"spender\") (\"value\"))) (Some (\"contracts/CToken.py\" 450)))) ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 454)) verify ((Some (\"contracts/CToken.py\" 454)) or ((Some (\"contracts/CToken.py\" 454)) contains ((Some (\"contracts/CToken.py\" 454)) attr ((Some (\"contracts/CToken.py\" 454)) get_item ((Some (\"contracts/CToken.py\" 454)) attr ((Some (\"contracts/CToken.py\" 454)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\")) ((Some (\"contracts/CToken.py\" 455)) lt ((Some (\"contracts/CToken.py\" 455)) size ((Some (\"contracts/CToken.py\" 455)) attr ((Some (\"contracts/CToken.py\" 455)) get_item ((Some (\"contracts/CToken.py\" 455)) attr ((Some (\"contracts/CToken.py\" 455)) storage) \"ledger\") (None sender)) \"approvals\")) ((Some (\"contracts/CToken.py\" 455)) literal (intOrNat 1000)))) ((Some (\"contracts/CToken.py\" 454)) literal (string \"FA1.2_MaxApprovalsReached\"))) ((Some (\"contracts/CToken.py\" 459)) verify ((Some (\"contracts/CToken.py\" 459)) or ((Some (\"contracts/CToken.py\" 459)) eq ((Some (\"contracts/CToken.py\" 457)) get_item_default ((Some (\"contracts/CToken.py\" 457)) attr ((Some (\"contracts/CToken.py\" 457)) get_item ((Some (\"contracts/CToken.py\" 457)) attr ((Some (\"contracts/CToken.py\" 457)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\") ((Some (\"contracts/CToken.py\" 457)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 459)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 459)) eq ((Some (\"contracts/CToken.py\" 459)) attr (None parameter) \"value\") ((Some (\"contracts/CToken.py\" 459)) literal (intOrNat 0)))) ((Some (\"contracts/CToken.py\" 459)) literal (string \"FA1.2_UnsafeAllowanceChange\"))) ((Some (\"contracts/CToken.py\" 461)) if_block ((Some (\"contracts/CToken.py\" 461)) eq ((Some (\"contracts/CToken.py\" 459)) attr (None parameter) \"value\") ((Some (\"contracts/CToken.py\" 461)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 462)) del_item ((Some (\"contracts/CToken.py\" 462)) attr ((Some (\"contracts/CToken.py\" 462)) get_item ((Some (\"contracts/CToken.py\" 462)) attr ((Some (\"contracts/CToken.py\" 462)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\")))) (else_block (((Some (\"contracts/CToken.py\" 464)) set ((Some (\"contracts/CToken.py\" 464)) get_item ((Some (\"contracts/CToken.py\" 464)) attr ((Some (\"contracts/CToken.py\" 464)) get_item ((Some (\"contracts/CToken.py\" 464)) attr ((Some (\"contracts/CToken.py\" 464)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\")) ((Some (\"contracts/CToken.py\" 459)) attr (None parameter) \"value\")))))) (borrow True None None None True None (Some (\"contracts/CToken.py\" 198)) (((Some (\"contracts/CToken.py\" 199)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 220)) set ((Some (\"contracts/CToken.py\" 220)) operations) ((Some (\"contracts/CToken.py\" 220)) cons ((Some (\"contracts/CToken.py\" 220)) transfer ((Some (\"contracts/CToken.py\" 218)) record (borrowAmount (None parameter)) (borrower (None sender)) (cToken (None self_address))) ((Some (\"contracts/CToken.py\" 220)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 217)) open_variant ((Some (\"contracts/CToken.py\" 216)) contract \"borrowAllowed\" (record ((borrowAmount \"nat\") (borrower \"address\") (cToken \"address\")) (Value ((\"cToken\") ((\"borrower\") (\"borrowAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 9))) ((Some (\"contracts/CToken.py\" 216)) attr ((Some (\"contracts/CToken.py\" 216)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 220)) operations))) ((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") (None parameter)) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ (None sender)) (value (None parameter))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None sender)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None sender)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 210)) set ((Some (\"contracts/CToken.py\" 210)) attr ((Some (\"contracts/CToken.py\" 210)) get_item ((Some (\"contracts/CToken.py\" 210)) attr ((Some (\"contracts/CToken.py\" 210)) storage) \"borrows\") (None sender)) \"principal\") ((Some (\"contracts/CToken.py\" 208)) add ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter))) ((Some (\"contracts/CToken.py\" 211)) set ((Some (\"contracts/CToken.py\" 211)) attr ((Some (\"contracts/CToken.py\" 211)) get_item ((Some (\"contracts/CToken.py\" 211)) attr ((Some (\"contracts/CToken.py\" 211)) storage) \"borrows\") (None sender)) \"interestIndex\") ((Some (\"contracts/CToken.py\" 211)) attr ((Some (\"contracts/CToken.py\" 211)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 212)) set ((Some (\"contracts/CToken.py\" 212)) attr ((Some (\"contracts/CToken.py\" 212)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 212)) add ((Some (\"contracts/CToken.py\" 212)) attr ((Some (\"contracts/CToken.py\" 212)) storage) \"totalBorrows\") (None parameter))))) (borrowBalanceStored True None None None True None (Some (\"contracts/CToken.py\" 606)) ((bind \"__s1\" (((Some (\"contracts/CToken.py\" 607)) set_type (None first (None parameter)) \"address\") ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None first (None parameter))) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 608)) result ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 606)) transfer (None var \"__s1\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (doAccrueInterest True (Some True) None None True None (Some (\"contracts/CToken.py\" 752)) (((Some (\"contracts/CToken.py\" 753)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 958)) verify ((Some (\"contracts/CToken.py\" 958)) eq (None sender) ((Some (\"contracts/CToken.py\" 958)) attr ((Some (\"contracts/CToken.py\" 958)) storage) \"interestRateModel\")) ((Some (\"contracts/CToken.py\" 958)) literal (string \"CT_SENDER_NOT_IRM\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 17)) literal (nat 8))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 17)) literal (nat 8)) False) ((Some (\"contracts/CToken.py\" 756)) verify ((Some (\"contracts/CToken.py\" 756)) le (None parameter) ((Some (\"contracts/CToken.py\" 757)) attr ((Some (\"contracts/CToken.py\" 757)) storage) \"borrowRateMaxMantissa\")) ((Some (\"contracts/CToken.py\" 756)) literal (string \"CT_INVALID_BORROW_RATE\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa (None parameter))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 759)) open_variant ((Some (\"contracts/CToken.py\" 759)) is_nat ((Some (\"contracts/CToken.py\" 759)) sub (None level) ((Some (\"contracts/CToken.py\" 759)) attr ((Some (\"contracts/CToken.py\" 759)) storage) \"accrualBlockNumber\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo (None parameter) ((Some (\"contracts/CToken.py\" 759)) open_variant ((Some (\"contracts/CToken.py\" 759)) is_nat ((Some (\"contracts/CToken.py\" 759)) sub (None level) ((Some (\"contracts/CToken.py\" 759)) attr ((Some (\"contracts/CToken.py\" 759)) storage) \"accrualBlockNumber\"))) \"Some\" \"None\")) \"nat\") ((Some (\"contracts/CToken.py\" 761)) define_local \"compute_CToken_761\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo (None parameter) ((Some (\"contracts/CToken.py\" 759)) open_variant ((Some (\"contracts/CToken.py\" 759)) is_nat ((Some (\"contracts/CToken.py\" 759)) sub (None level) ((Some (\"contracts/CToken.py\" 759)) attr ((Some (\"contracts/CToken.py\" 759)) storage) \"accrualBlockNumber\"))) \"Some\" \"None\")))) True) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 763)) define_local \"compute_CToken_763\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 765)) set ((Some (\"contracts/CToken.py\" 765)) attr ((Some (\"contracts/CToken.py\" 765)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 765)) add ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\") ((Some (\"contracts/CToken.py\" 765)) attr ((Some (\"contracts/CToken.py\" 765)) storage) \"totalBorrows\"))) ((Some (\"contracts/utils/Exponential.py\" 87)) set_type ((Some (\"contracts/CToken.py\" 766)) record (mantissa ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 88)) set_type ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 89)) set_type ((Some (\"contracts/CToken.py\" 768)) attr ((Some (\"contracts/CToken.py\" 768)) storage) \"totalReserves\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/CToken.py\" 766)) record (mantissa ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/CToken.py\" 766)) record (mantissa ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\") ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\") ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 766)) set ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 90)) add ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\") ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 768)) attr ((Some (\"contracts/CToken.py\" 768)) storage) \"totalReserves\"))) ((Some (\"contracts/utils/Exponential.py\" 87)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 88)) set_type ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 89)) set_type ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 769)) set ((Some (\"contracts/CToken.py\" 769)) attr ((Some (\"contracts/CToken.py\" 769)) storage) \"borrowIndex\") ((Some (\"contracts/utils/Exponential.py\" 90)) add ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\"))) ((Some (\"contracts/CToken.py\" 771)) set ((Some (\"contracts/CToken.py\" 771)) attr ((Some (\"contracts/CToken.py\" 771)) storage) \"accrualBlockNumber\") (None level)))) (exchangeRateStored True None None None True None (Some (\"contracts/CToken.py\" 645)) ((bind \"__s2\" (((Some (\"contracts/CToken.py\" 646)) set_type (None first (None parameter)) \"unit\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 647)) result ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 645)) transfer (None var \"__s2\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getAccountSnapshot True None None None True None (Some (\"contracts/CToken.py\" 579)) ((bind \"__s3\" (((Some (\"contracts/CToken.py\" 565)) define_local \"compute_CToken_565\" ((Some (\"contracts/CToken.py\" 565)) record (account (None first (None parameter))) (borrowBalance ((Some (\"contracts/CToken.py\" 568)) literal (nat 0))) (cTokenBalance ((Some (\"contracts/CToken.py\" 567)) literal (nat 0))) (exchangeRateMantissa ((Some (\"contracts/CToken.py\" 569)) literal (nat 0)))) True) ((Some (\"contracts/CToken.py\" 571)) if_block ((Some (\"contracts/CToken.py\" 571)) contains ((Some (\"contracts/CToken.py\" 571)) attr ((Some (\"contracts/CToken.py\" 571)) storage) \"ledger\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 573)) set ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"cTokenBalance\") ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 573)) get_item ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 573)) storage) \"ledger\") (None first (None parameter))) \"balance\")) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None first (None parameter))) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 574)) set ((Some (\"contracts/CToken.py\" 574)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"borrowBalance\") ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")) ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 575)) set ((Some (\"contracts/CToken.py\" 575)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"exchangeRateMantissa\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) ((Some (\"contracts/CToken.py\" 580)) result ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\")))) (None set_type (None second (None parameter)) (contract (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 579)) transfer (None var \"__s3\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getAllowance True None None None True None (Some (\"contracts/CToken.py\" 546)) ((bind \"__s4\" (((Some (\"contracts/CToken.py\" 547)) define_local \"result\" ((Some (\"contracts/CToken.py\" 547)) literal (intOrNat 0)) True) ((Some (\"contracts/CToken.py\" 548)) if_block ((Some (\"contracts/CToken.py\" 548)) contains ((Some (\"contracts/CToken.py\" 548)) attr ((Some (\"contracts/CToken.py\" 548)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 548)) attr (None first (None parameter)) \"owner\")) (((Some (\"contracts/CToken.py\" 549)) if_block ((Some (\"contracts/CToken.py\" 549)) contains ((Some (\"contracts/CToken.py\" 549)) attr ((Some (\"contracts/CToken.py\" 549)) get_item ((Some (\"contracts/CToken.py\" 549)) attr ((Some (\"contracts/CToken.py\" 549)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 548)) attr (None first (None parameter)) \"owner\")) \"approvals\") ((Some (\"contracts/CToken.py\" 549)) attr (None first (None parameter)) \"spender\")) (((Some (\"contracts/CToken.py\" 550)) set ((Some (\"contracts/CToken.py\" 550)) var \"result\") ((Some (\"contracts/CToken.py\" 550)) get_item ((Some (\"contracts/CToken.py\" 550)) attr ((Some (\"contracts/CToken.py\" 550)) get_item ((Some (\"contracts/CToken.py\" 550)) attr ((Some (\"contracts/CToken.py\" 550)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 548)) attr (None first (None parameter)) \"owner\")) \"approvals\") ((Some (\"contracts/CToken.py\" 549)) attr (None first (None parameter)) \"spender\"))))))) ((Some (\"contracts/CToken.py\" 551)) result ((Some (\"contracts/CToken.py\" 551)) var \"result\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 546)) transfer (None var \"__s4\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getBalance True None None None True None (Some (\"contracts/CToken.py\" 486)) ((bind \"__s5\" (((Some (\"contracts/CToken.py\" 487)) define_local \"result\" ((Some (\"contracts/CToken.py\" 487)) literal (intOrNat 0)) True) ((Some (\"contracts/CToken.py\" 488)) if_block ((Some (\"contracts/CToken.py\" 488)) contains ((Some (\"contracts/CToken.py\" 488)) attr ((Some (\"contracts/CToken.py\" 488)) storage) \"ledger\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 489)) set ((Some (\"contracts/CToken.py\" 489)) var \"result\") ((Some (\"contracts/CToken.py\" 489)) attr ((Some (\"contracts/CToken.py\" 489)) get_item ((Some (\"contracts/CToken.py\" 489)) attr ((Some (\"contracts/CToken.py\" 489)) storage) \"ledger\") (None first (None parameter))) \"balance\")))) ((Some (\"contracts/CToken.py\" 490)) result ((Some (\"contracts/CToken.py\" 490)) var \"result\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 486)) transfer (None var \"__s5\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getBalanceOfUnderlying True None None None True None (Some (\"contracts/CToken.py\" 517)) ((bind \"__s6\" (((Some (\"contracts/CToken.py\" 518)) set_type (None first (None parameter)) \"address\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 522)) result ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\"))))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 517)) transfer (None var \"__s6\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getCash True None None None True None (Some (\"contracts/CToken.py\" 699)) ((bind \"__s7\" (((Some (\"contracts/CToken.py\" 700)) set_type (None first (None parameter)) \"unit\") ((Some (\"contracts/CToken.py\" 701)) result ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 699)) transfer (None var \"__s7\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getTotalSupply True None None None True None (Some (\"contracts/CToken.py\" 532)) ((bind \"__s8\" (((Some (\"contracts/CToken.py\" 533)) set_type (None first (None parameter)) \"unit\") ((Some (\"contracts/CToken.py\" 534)) result ((Some (\"contracts/CToken.py\" 534)) attr ((Some (\"contracts/CToken.py\" 534)) storage) \"totalSupply\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 532)) transfer (None var \"__s8\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (hardResetOp True (Some True) None None True None (Some (\"contracts/utils/OperationProtector.py\" 56)) (((Some (\"contracts/utils/OperationProtector.py\" 57)) set_type (None parameter) \"unit\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 59)) set ((Some (\"contracts/utils/OperationProtector.py\" 59)) attr ((Some (\"contracts/utils/OperationProtector.py\" 59)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 59)) set )))) (liquidateBorrow True None None None True None (Some (\"contracts/CToken.py\" 348)) (((Some (\"contracts/CToken.py\" 349)) set_type (None parameter) (record ((borrower \"address\") (cTokenCollateral \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 27)))) ((Some (\"contracts/CToken.py\" 360)) set ((Some (\"contracts/CToken.py\" 360)) operations) ((Some (\"contracts/CToken.py\" 360)) cons ((Some (\"contracts/CToken.py\" 360)) transfer ((Some (\"contracts/CToken.py\" 358)) record (borrower ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) (cTokenBorrowed (None self_address)) (cTokenCollateral ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\")) (liquidator (None sender)) (repayAmount ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\"))) ((Some (\"contracts/CToken.py\" 360)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 357)) open_variant ((Some (\"contracts/CToken.py\" 356)) contract \"liquidateBorrowAllowed\" (record ((borrower \"address\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\") (liquidator \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 28))) ((Some (\"contracts/CToken.py\" 356)) attr ((Some (\"contracts/CToken.py\" 356)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 360)) operations))) ((Some (\"contracts/CToken.py\" 363)) verify ((Some (\"contracts/CToken.py\" 363)) neq ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\") (None sender)) ((Some (\"contracts/CToken.py\" 363)) literal (string \"CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER\"))) ((Some (\"contracts/CToken.py\" 366)) verify ((Some (\"contracts/CToken.py\" 366)) gt ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\") ((Some (\"contracts/CToken.py\" 366)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 366)) literal (string \"CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 263)) set ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) get_item ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 265)) set ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) get_item ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) \"interestIndex\") ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 266)) set ((Some (\"contracts/CToken.py\" 266)) attr ((Some (\"contracts/CToken.py\" 266)) storage) \"totalBorrows\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 268)) if_block ((Some (\"contracts/CToken.py\" 268)) eq ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) get_item ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/CToken.py\" 268)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 271)) set ((Some (\"contracts/CToken.py\" 271)) operations) ((Some (\"contracts/CToken.py\" 271)) cons ((Some (\"contracts/CToken.py\" 271)) transfer ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 271)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 270)) open_variant ((Some (\"contracts/CToken.py\" 269)) contract \"removeFromLoans\" \"address\" ((Some (\"contracts/CToken.py\" 269)) attr ((Some (\"contracts/CToken.py\" 269)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 271)) operations))))) ((Some (\"contracts/CToken.py\" 379)) verify ((Some (\"contracts/CToken.py\" 379)) ge ((Some (\"contracts/CToken.py\" 377)) open_variant ((Some (\"contracts/CToken.py\" 376)) view \"balanceOf\" ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\") \"nat\") \"Some\" ((Some (\"contracts/CToken.py\" 377)) literal (string \"INVALID BALANCE OF VIEW\"))) ((Some (\"contracts/CToken.py\" 374)) open_variant ((Some (\"contracts/CToken.py\" 372)) view \"liquidateCalculateSeizeTokens\" ((Some (\"contracts/CToken.py\" 372)) record (actualRepayAmount ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) (cTokenBorrowed (None self_address)) (cTokenCollateral ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\"))) ((Some (\"contracts/CToken.py\" 372)) attr ((Some (\"contracts/CToken.py\" 372)) storage) \"comptroller\") \"nat\") \"Some\" ((Some (\"contracts/CToken.py\" 374)) literal (string \"INVALID LIQUIDATE CALC SEIZE TOKEN VIEW\")))) ((Some (\"contracts/CToken.py\" 379)) literal (string \"LIQUIDATE_SEIZE_TOO_MUCH\"))) ((Some (\"contracts/CToken.py\" 383)) set ((Some (\"contracts/CToken.py\" 383)) operations) ((Some (\"contracts/CToken.py\" 383)) cons ((Some (\"contracts/CToken.py\" 383)) transfer ((Some (\"contracts/CToken.py\" 383)) record (borrower ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) (liquidator (None sender)) (seizeTokens ((Some (\"contracts/CToken.py\" 374)) open_variant ((Some (\"contracts/CToken.py\" 372)) view \"liquidateCalculateSeizeTokens\" ((Some (\"contracts/CToken.py\" 372)) record (actualRepayAmount ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) (cTokenBorrowed (None self_address)) (cTokenCollateral ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\"))) ((Some (\"contracts/CToken.py\" 372)) attr ((Some (\"contracts/CToken.py\" 372)) storage) \"comptroller\") \"nat\") \"Some\" ((Some (\"contracts/CToken.py\" 374)) literal (string \"INVALID LIQUIDATE CALC SEIZE TOKEN VIEW\"))))) ((Some (\"contracts/CToken.py\" 384)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 382)) open_variant ((Some (\"contracts/CToken.py\" 381)) contract \"seize\" (record ((borrower \"address\") (liquidator \"address\") (seizeTokens \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 24))) ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 383)) operations))))) (mint True None None None True None (Some (\"contracts/CToken.py\" 87)) (((Some (\"contracts/CToken.py\" 88)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 107)) set ((Some (\"contracts/CToken.py\" 107)) operations) ((Some (\"contracts/CToken.py\" 107)) cons ((Some (\"contracts/CToken.py\" 107)) transfer ((Some (\"contracts/CToken.py\" 105)) record (cToken (None self_address)) (mintAmount (None parameter)) (minter (None sender))) ((Some (\"contracts/CToken.py\" 107)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 104)) open_variant ((Some (\"contracts/CToken.py\" 103)) contract \"mintAllowed\" (record ((cToken \"address\") (mintAmount \"nat\") (minter \"address\")) (Value ((\"cToken\") ((\"minter\") (\"mintAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 7))) ((Some (\"contracts/CToken.py\" 103)) attr ((Some (\"contracts/CToken.py\" 103)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 107)) operations))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value (None parameter))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 963)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 963)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 964)) if_block ((Some (\"contracts/CToken.py\" 964)) literal (bool True)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 267)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 268)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 269)) verify ((Some (\"contracts/utils/Exponential.py\" 269)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 269)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 269)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/CToken.py\" 965)) define_local \"compute_CToken_965\" ((Some (\"contracts/utils/Exponential.py\" 270)) div ((Some (\"contracts/utils/Exponential.py\" 270)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 270)) attr ((Some (\"contracts/utils/Exponential.py\" 270)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/CToken.py\" 965)) set ((Some (\"contracts/CToken.py\" 965)) var \"amount\") ((Some (\"contracts/CToken.py\" 965)) var \"compute_CToken_965\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 968)) define_local \"compute_CToken_968\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 968)) set ((Some (\"contracts/CToken.py\" 968)) var \"amount\") ((Some (\"contracts/CToken.py\" 968)) var \"compute_CToken_968\")))) ((Some (\"contracts/CToken.py\" 97)) verify ((Some (\"contracts/CToken.py\" 97)) gt ((Some (\"contracts/CToken.py\" 970)) var \"amount\") ((Some (\"contracts/CToken.py\" 97)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 97)) literal (string \"CT_MINT_AMOUNT_IS_INVALID\"))) ((Some (\"contracts/CToken.py\" 98)) set ((Some (\"contracts/CToken.py\" 98)) attr ((Some (\"contracts/CToken.py\" 98)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 98)) add ((Some (\"contracts/CToken.py\" 98)) attr ((Some (\"contracts/CToken.py\" 98)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\"))) ((Some (\"contracts/CToken.py\" 99)) set ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) get_item ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 99)) add ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) get_item ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\"))))) (redeem True None None None True None (Some (\"contracts/CToken.py\" 130)) (((Some (\"contracts/CToken.py\" 131)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 180)) set ((Some (\"contracts/CToken.py\" 180)) operations) ((Some (\"contracts/CToken.py\" 180)) cons ((Some (\"contracts/CToken.py\" 180)) transfer ((Some (\"contracts/CToken.py\" 178)) record (cToken (None self_address)) (redeemAmount (None parameter)) (redeemer (None sender))) ((Some (\"contracts/CToken.py\" 180)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 177)) open_variant ((Some (\"contracts/CToken.py\" 176)) contract \"redeemAllowed\" (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11))) ((Some (\"contracts/CToken.py\" 176)) attr ((Some (\"contracts/CToken.py\" 176)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 180)) operations))) ((Some (\"contracts/CToken.py\" 984)) define_local \"redeem_amount\" ((Some (\"contracts/CToken.py\" 984)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 985)) if_block ((Some (\"contracts/CToken.py\" 134)) literal (bool False)) (((Some (\"contracts/CToken.py\" 986)) set ((Some (\"contracts/CToken.py\" 986)) var \"redeem_amount\") (None parameter)))) (else_block (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 963)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 963)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 964)) if_block ((Some (\"contracts/CToken.py\" 964)) literal (bool False)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 267)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 268)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 269)) verify ((Some (\"contracts/utils/Exponential.py\" 269)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 269)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 269)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/CToken.py\" 965)) define_local \"compute_CToken_965\" ((Some (\"contracts/utils/Exponential.py\" 270)) div ((Some (\"contracts/utils/Exponential.py\" 270)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 270)) attr ((Some (\"contracts/utils/Exponential.py\" 270)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/CToken.py\" 965)) set ((Some (\"contracts/CToken.py\" 965)) var \"amount\") ((Some (\"contracts/CToken.py\" 965)) var \"compute_CToken_965\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 968)) define_local \"compute_CToken_968\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 968)) set ((Some (\"contracts/CToken.py\" 968)) var \"amount\") ((Some (\"contracts/CToken.py\" 968)) var \"compute_CToken_968\")))) ((Some (\"contracts/CToken.py\" 988)) set ((Some (\"contracts/CToken.py\" 988)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\")))) ((Some (\"contracts/CToken.py\" 993)) define_local \"redeem_tokens\" ((Some (\"contracts/CToken.py\" 993)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 994)) if_block ((Some (\"contracts/CToken.py\" 134)) literal (bool False)) (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 974)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 974)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 975)) if_block ((Some (\"contracts/CToken.py\" 975)) literal (bool True)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 273)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 274)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 275)) verify ((Some (\"contracts/utils/Exponential.py\" 275)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 275)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 275)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 277)) define_local \"compute_Exponential_277\" ((Some (\"contracts/utils/Exponential.py\" 277)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 277)) attr ((Some (\"contracts/utils/Exponential.py\" 277)) storage) \"expScale\")) True) ((Some (\"contracts/utils/Exponential.py\" 280)) define_local \"compute_Exponential_280\" ((Some (\"contracts/utils/Exponential.py\" 280)) div ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/utils/Exponential.py\" 281)) if_block ((Some (\"contracts/utils/Exponential.py\" 281)) gt ((Some (\"contracts/utils/Exponential.py\" 281)) mod ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) ((Some (\"contracts/utils/Exponential.py\" 281)) literal (intOrNat 0))) ()) ((Some (\"contracts/CToken.py\" 976)) define_local \"compute_CToken_976\" ((Some (\"contracts/utils/Exponential.py\" 282)) add ((Some (\"contracts/utils/Exponential.py\" 280)) var \"compute_Exponential_280\") ((Some (\"contracts/utils/Exponential.py\" 282)) literal (intOrNat 1))) True) ((Some (\"contracts/CToken.py\" 976)) set ((Some (\"contracts/CToken.py\" 976)) var \"amount\") ((Some (\"contracts/CToken.py\" 976)) var \"compute_CToken_976\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 979)) define_local \"compute_CToken_979\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 979)) set ((Some (\"contracts/CToken.py\" 979)) var \"amount\") ((Some (\"contracts/CToken.py\" 979)) var \"compute_CToken_979\")))) ((Some (\"contracts/CToken.py\" 995)) set ((Some (\"contracts/CToken.py\" 995)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 981)) var \"amount\")))) (else_block (((Some (\"contracts/CToken.py\" 997)) set ((Some (\"contracts/CToken.py\" 997)) var \"redeem_tokens\") (None parameter)))) ((Some (\"contracts/CToken.py\" 166)) if_block ((Some (\"contracts/CToken.py\" 166)) and ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0)))) (((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\")) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 169)) set ((Some (\"contracts/CToken.py\" 169)) attr ((Some (\"contracts/CToken.py\" 169)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 169)) open_variant ((Some (\"contracts/CToken.py\" 169)) is_nat ((Some (\"contracts/CToken.py\" 170)) sub ((Some (\"contracts/CToken.py\" 170)) attr ((Some (\"contracts/CToken.py\" 170)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 169)) literal (string \"Insufficient supply\")))) ((Some (\"contracts/CToken.py\" 171)) set ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) get_item ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 171)) open_variant ((Some (\"contracts/CToken.py\" 171)) is_nat ((Some (\"contracts/CToken.py\" 172)) sub ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) get_item ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 171)) literal (string \"Insufficient balance\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ (None sender)) (value ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))))) (redeemUnderlying True None None None True None (Some (\"contracts/CToken.py\" 152)) (((Some (\"contracts/CToken.py\" 153)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 180)) set ((Some (\"contracts/CToken.py\" 180)) operations) ((Some (\"contracts/CToken.py\" 180)) cons ((Some (\"contracts/CToken.py\" 180)) transfer ((Some (\"contracts/CToken.py\" 178)) record (cToken (None self_address)) (redeemAmount (None parameter)) (redeemer (None sender))) ((Some (\"contracts/CToken.py\" 180)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 177)) open_variant ((Some (\"contracts/CToken.py\" 176)) contract \"redeemAllowed\" (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11))) ((Some (\"contracts/CToken.py\" 176)) attr ((Some (\"contracts/CToken.py\" 176)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 180)) operations))) ((Some (\"contracts/CToken.py\" 984)) define_local \"redeem_amount\" ((Some (\"contracts/CToken.py\" 984)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 985)) if_block ((Some (\"contracts/CToken.py\" 156)) literal (bool True)) (((Some (\"contracts/CToken.py\" 986)) set ((Some (\"contracts/CToken.py\" 986)) var \"redeem_amount\") (None parameter)))) (else_block (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 963)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 963)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 964)) if_block ((Some (\"contracts/CToken.py\" 964)) literal (bool False)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 267)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 268)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 269)) verify ((Some (\"contracts/utils/Exponential.py\" 269)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 269)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 269)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/CToken.py\" 965)) define_local \"compute_CToken_965\" ((Some (\"contracts/utils/Exponential.py\" 270)) div ((Some (\"contracts/utils/Exponential.py\" 270)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 270)) attr ((Some (\"contracts/utils/Exponential.py\" 270)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/CToken.py\" 965)) set ((Some (\"contracts/CToken.py\" 965)) var \"amount\") ((Some (\"contracts/CToken.py\" 965)) var \"compute_CToken_965\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 968)) define_local \"compute_CToken_968\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 968)) set ((Some (\"contracts/CToken.py\" 968)) var \"amount\") ((Some (\"contracts/CToken.py\" 968)) var \"compute_CToken_968\")))) ((Some (\"contracts/CToken.py\" 988)) set ((Some (\"contracts/CToken.py\" 988)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\")))) ((Some (\"contracts/CToken.py\" 993)) define_local \"redeem_tokens\" ((Some (\"contracts/CToken.py\" 993)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 994)) if_block ((Some (\"contracts/CToken.py\" 156)) literal (bool True)) (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 974)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 974)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 975)) if_block ((Some (\"contracts/CToken.py\" 975)) literal (bool True)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 273)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 274)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 275)) verify ((Some (\"contracts/utils/Exponential.py\" 275)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 275)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 275)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 277)) define_local \"compute_Exponential_277\" ((Some (\"contracts/utils/Exponential.py\" 277)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 277)) attr ((Some (\"contracts/utils/Exponential.py\" 277)) storage) \"expScale\")) True) ((Some (\"contracts/utils/Exponential.py\" 280)) define_local \"compute_Exponential_280\" ((Some (\"contracts/utils/Exponential.py\" 280)) div ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/utils/Exponential.py\" 281)) if_block ((Some (\"contracts/utils/Exponential.py\" 281)) gt ((Some (\"contracts/utils/Exponential.py\" 281)) mod ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) ((Some (\"contracts/utils/Exponential.py\" 281)) literal (intOrNat 0))) ()) ((Some (\"contracts/CToken.py\" 976)) define_local \"compute_CToken_976\" ((Some (\"contracts/utils/Exponential.py\" 282)) add ((Some (\"contracts/utils/Exponential.py\" 280)) var \"compute_Exponential_280\") ((Some (\"contracts/utils/Exponential.py\" 282)) literal (intOrNat 1))) True) ((Some (\"contracts/CToken.py\" 976)) set ((Some (\"contracts/CToken.py\" 976)) var \"amount\") ((Some (\"contracts/CToken.py\" 976)) var \"compute_CToken_976\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 979)) define_local \"compute_CToken_979\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 979)) set ((Some (\"contracts/CToken.py\" 979)) var \"amount\") ((Some (\"contracts/CToken.py\" 979)) var \"compute_CToken_979\")))) ((Some (\"contracts/CToken.py\" 995)) set ((Some (\"contracts/CToken.py\" 995)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 981)) var \"amount\")))) (else_block (((Some (\"contracts/CToken.py\" 997)) set ((Some (\"contracts/CToken.py\" 997)) var \"redeem_tokens\") (None parameter)))) ((Some (\"contracts/CToken.py\" 166)) if_block ((Some (\"contracts/CToken.py\" 166)) and ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0)))) (((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\")) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 169)) set ((Some (\"contracts/CToken.py\" 169)) attr ((Some (\"contracts/CToken.py\" 169)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 169)) open_variant ((Some (\"contracts/CToken.py\" 169)) is_nat ((Some (\"contracts/CToken.py\" 170)) sub ((Some (\"contracts/CToken.py\" 170)) attr ((Some (\"contracts/CToken.py\" 170)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 169)) literal (string \"Insufficient supply\")))) ((Some (\"contracts/CToken.py\" 171)) set ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) get_item ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 171)) open_variant ((Some (\"contracts/CToken.py\" 171)) is_nat ((Some (\"contracts/CToken.py\" 172)) sub ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) get_item ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 171)) literal (string \"Insufficient balance\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ (None sender)) (value ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))))) (reduceReserves True None None None True None (Some (\"contracts/CToken.py\" 920)) (((Some (\"contracts/CToken.py\" 921)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 21)) literal (nat 12)) True) ((Some (\"contracts/CToken.py\" 924)) set ((Some (\"contracts/CToken.py\" 924)) operations) ((Some (\"contracts/CToken.py\" 924)) cons ((Some (\"contracts/CToken.py\" 924)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 924)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 925)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 924)) operations))) ((Some (\"contracts/CToken.py\" 926)) set ((Some (\"contracts/CToken.py\" 926)) operations) ((Some (\"contracts/CToken.py\" 926)) cons ((Some (\"contracts/CToken.py\" 926)) transfer (None parameter) (None amount) ((Some (\"contracts/CToken.py\" 926)) self \"reduceReservesInternal\")) ((Some (\"contracts/CToken.py\" 926)) operations))))) (reduceReservesInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 930)) (((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 21)) literal (nat 12))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 21)) literal (nat 12)) False) ((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") (None parameter)) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 934)) verify ((Some (\"contracts/CToken.py\" 934)) le (None parameter) ((Some (\"contracts/CToken.py\" 934)) attr ((Some (\"contracts/CToken.py\" 934)) storage) \"totalReserves\")) ((Some (\"contracts/CToken.py\" 934)) literal (string \"CT_REDUCE_AMOUNT\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 938)) attr ((Some (\"contracts/CToken.py\" 938)) storage) \"totalReserves\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 937)) set ((Some (\"contracts/CToken.py\" 937)) attr ((Some (\"contracts/CToken.py\" 937)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 938)) attr ((Some (\"contracts/CToken.py\" 938)) storage) \"totalReserves\") (None parameter))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/CToken.py\" 939)) attr ((Some (\"contracts/CToken.py\" 939)) storage) \"administrator\")) (value (None parameter))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (removePendingGovernance True (Some True) None None True None (Some (\"contracts/CToken.py\" 823)) (((Some (\"contracts/CToken.py\" 824)) set_type (None parameter) \"unit\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 826)) set ((Some (\"contracts/CToken.py\" 826)) attr ((Some (\"contracts/CToken.py\" 826)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (repayBorrow True None None None True None (Some (\"contracts/CToken.py\" 231)) (((Some (\"contracts/CToken.py\" 232)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 279)) set ((Some (\"contracts/CToken.py\" 279)) operations) ((Some (\"contracts/CToken.py\" 279)) cons ((Some (\"contracts/CToken.py\" 279)) transfer ((Some (\"contracts/CToken.py\" 277)) record (borrower (None sender)) (cToken (None self_address)) (payer (None sender)) (repayAmount (None parameter))) ((Some (\"contracts/CToken.py\" 279)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 276)) open_variant ((Some (\"contracts/CToken.py\" 275)) contract \"repayBorrowAllowed\" (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13))) ((Some (\"contracts/CToken.py\" 275)) attr ((Some (\"contracts/CToken.py\" 275)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 279)) operations))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None sender)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None sender)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)) \"nat\") ((Some (\"contracts/CToken.py\" 263)) set ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) get_item ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) storage) \"borrows\") (None sender)) \"principal\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 265)) set ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) get_item ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrows\") (None sender)) \"interestIndex\") ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)) \"nat\") ((Some (\"contracts/CToken.py\" 266)) set ((Some (\"contracts/CToken.py\" 266)) attr ((Some (\"contracts/CToken.py\" 266)) storage) \"totalBorrows\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 268)) if_block ((Some (\"contracts/CToken.py\" 268)) eq ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) get_item ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) storage) \"borrows\") (None sender)) \"principal\") ((Some (\"contracts/CToken.py\" 268)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 271)) set ((Some (\"contracts/CToken.py\" 271)) operations) ((Some (\"contracts/CToken.py\" 271)) cons ((Some (\"contracts/CToken.py\" 271)) transfer (None sender) ((Some (\"contracts/CToken.py\" 271)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 270)) open_variant ((Some (\"contracts/CToken.py\" 269)) contract \"removeFromLoans\" \"address\" ((Some (\"contracts/CToken.py\" 269)) attr ((Some (\"contracts/CToken.py\" 269)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 271)) operations))))))) (repayBorrowBehalf True None None None True None (Some (\"contracts/CToken.py\" 249)) (((Some (\"contracts/CToken.py\" 250)) set_type (None parameter) (record ((borrower \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/CToken.py\" 250)))) ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 279)) set ((Some (\"contracts/CToken.py\" 279)) operations) ((Some (\"contracts/CToken.py\" 279)) cons ((Some (\"contracts/CToken.py\" 279)) transfer ((Some (\"contracts/CToken.py\" 277)) record (borrower ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) (cToken (None self_address)) (payer (None sender)) (repayAmount ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\"))) ((Some (\"contracts/CToken.py\" 279)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 276)) open_variant ((Some (\"contracts/CToken.py\" 275)) contract \"repayBorrowAllowed\" (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13))) ((Some (\"contracts/CToken.py\" 275)) attr ((Some (\"contracts/CToken.py\" 275)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 279)) operations))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 263)) set ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) get_item ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 265)) set ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) get_item ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) \"interestIndex\") ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 266)) set ((Some (\"contracts/CToken.py\" 266)) attr ((Some (\"contracts/CToken.py\" 266)) storage) \"totalBorrows\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 268)) if_block ((Some (\"contracts/CToken.py\" 268)) eq ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) get_item ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/CToken.py\" 268)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 271)) set ((Some (\"contracts/CToken.py\" 271)) operations) ((Some (\"contracts/CToken.py\" 271)) cons ((Some (\"contracts/CToken.py\" 271)) transfer ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 271)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 270)) open_variant ((Some (\"contracts/CToken.py\" 269)) contract \"removeFromLoans\" \"address\" ((Some (\"contracts/CToken.py\" 269)) attr ((Some (\"contracts/CToken.py\" 269)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 271)) operations))))))) (seize True None None None True None (Some (\"contracts/CToken.py\" 291)) (((Some (\"contracts/CToken.py\" 292)) set_type (None parameter) (record ((borrower \"address\") (liquidator \"address\") (seizeTokens \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 24)))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\"))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\"))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 300)) verify ((Some (\"contracts/CToken.py\" 299)) open_variant ((Some (\"contracts/CToken.py\" 298)) view \"seizeAllowed\" ((Some (\"contracts/CToken.py\" 298)) record (cTokenBorrowed (None sender)) (cTokenCollateral (None self_address))) ((Some (\"contracts/CToken.py\" 298)) attr ((Some (\"contracts/CToken.py\" 298)) storage) \"comptroller\") \"bool\") \"Some\" ((Some (\"contracts/CToken.py\" 299)) literal (string \"INVALID SEIZE ALLOWED VIEW\"))) ((Some (\"contracts/CToken.py\" 300)) literal (string \"CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION\"))) ((Some (\"contracts/CToken.py\" 302)) verify ((Some (\"contracts/CToken.py\" 302)) neq ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) ((Some (\"contracts/CToken.py\" 302)) literal (string \"CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) get_item ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\")) \"balance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 313)) attr ((Some (\"contracts/CToken.py\" 313)) storage) \"protocolSeizeShareMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 229)) set_type ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 230)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 313)) attr ((Some (\"contracts/CToken.py\" 313)) storage) \"protocolSeizeShareMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 312)) define_local \"protocolSeizeTokens\" ((Some (\"contracts/utils/Exponential.py\" 231)) div ((Some (\"contracts/utils/Exponential.py\" 231)) mul_homo ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") ((Some (\"contracts/CToken.py\" 313)) attr ((Some (\"contracts/CToken.py\" 313)) storage) \"protocolSeizeShareMantissa\")) ((Some (\"contracts/utils/Exponential.py\" 231)) attr ((Some (\"contracts/utils/Exponential.py\" 231)) storage) \"expScale\")) True) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 316)) var \"protocolSeizeTokens\") \"nat\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 169)) set_type ((Some (\"contracts/CToken.py\" 323)) attr ((Some (\"contracts/CToken.py\" 323)) storage) \"totalReserves\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 170)) set_type ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 327)) attr ((Some (\"contracts/CToken.py\" 327)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 327)) var \"protocolSeizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 169)) set_type ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) get_item ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) \"balance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 170)) set_type ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") ((Some (\"contracts/CToken.py\" 316)) var \"protocolSeizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) \"nat\") ((Some (\"contracts/CToken.py\" 332)) set ((Some (\"contracts/CToken.py\" 332)) attr ((Some (\"contracts/CToken.py\" 332)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 171)) add ((Some (\"contracts/CToken.py\" 323)) attr ((Some (\"contracts/CToken.py\" 323)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/CToken.py\" 333)) set ((Some (\"contracts/CToken.py\" 333)) attr ((Some (\"contracts/CToken.py\" 333)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 327)) attr ((Some (\"contracts/CToken.py\" 327)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 327)) var \"protocolSeizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 334)) set ((Some (\"contracts/CToken.py\" 334)) attr ((Some (\"contracts/CToken.py\" 334)) get_item ((Some (\"contracts/CToken.py\" 334)) attr ((Some (\"contracts/CToken.py\" 334)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\")) \"balance\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) get_item ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\")) \"balance\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 335)) set ((Some (\"contracts/CToken.py\" 335)) attr ((Some (\"contracts/CToken.py\" 335)) get_item ((Some (\"contracts/CToken.py\" 335)) attr ((Some (\"contracts/CToken.py\" 335)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) \"balance\") ((Some (\"contracts/utils/Exponential.py\" 171)) add ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) get_item ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) \"balance\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") ((Some (\"contracts/CToken.py\" 316)) var \"protocolSeizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))))))) (setCash True (Some True) None None True None (Some (\"contracts/CFA12.py\" 38)) (((Some (\"contracts/CFA12.py\" 39)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 22)) literal (nat 13))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 22)) literal (nat 13)) False) ((Some (\"contracts/CFA12.py\" 41)) verify ((Some (\"contracts/CFA12.py\" 41)) eq (None sender) ((Some (\"contracts/CFA12.py\" 41)) attr ((Some (\"contracts/CFA12.py\" 41)) storage) \"fa1_2_TokenAddress\")) ((Some (\"contracts/CFA12.py\" 41)) literal (string \"CT_INVALID_CASH_SENDER\"))) ((Some (\"contracts/CFA12.py\" 43)) set ((Some (\"contracts/CFA12.py\" 43)) attr ((Some (\"contracts/CFA12.py\" 43)) storage) \"currentCash\") (None parameter)))) (setComptroller True (Some True) None None True None (Some (\"contracts/CToken.py\" 836)) (((Some (\"contracts/CToken.py\" 837)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 839)) set ((Some (\"contracts/CToken.py\" 839)) attr ((Some (\"contracts/CToken.py\" 839)) storage) \"comptroller\") (None parameter)))) (setInterestRateModel True None None None True None (Some (\"contracts/CToken.py\" 849)) (((Some (\"contracts/CToken.py\" 850)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 18)) literal (nat 9)) True) ((Some (\"contracts/CToken.py\" 853)) set ((Some (\"contracts/CToken.py\" 853)) operations) ((Some (\"contracts/CToken.py\" 853)) cons ((Some (\"contracts/CToken.py\" 853)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 853)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 854)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 853)) operations))) ((Some (\"contracts/CToken.py\" 855)) set ((Some (\"contracts/CToken.py\" 855)) operations) ((Some (\"contracts/CToken.py\" 855)) cons ((Some (\"contracts/CToken.py\" 855)) transfer (None parameter) ((Some (\"contracts/CToken.py\" 855)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 856)) self \"setInterestRateModelInternal\")) ((Some (\"contracts/CToken.py\" 855)) operations))))) (setInterestRateModelInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 859)) (((Some (\"contracts/CToken.py\" 860)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 18)) literal (nat 9))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 18)) literal (nat 9)) False) ((Some (\"contracts/CToken.py\" 863)) set ((Some (\"contracts/CToken.py\" 863)) attr ((Some (\"contracts/CToken.py\" 863)) storage) \"interestRateModel\") (None parameter)))) (setPendingGovernance True (Some True) None None True None (Some (\"contracts/CToken.py\" 783)) (((Some (\"contracts/CToken.py\" 784)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 786)) set ((Some (\"contracts/CToken.py\" 786)) attr ((Some (\"contracts/CToken.py\" 786)) storage) \"pendingAdministrator\") ((Some (\"contracts/CToken.py\" 786)) variant \"Some\" (None parameter))))) (setReserveFactor True None None None True None (Some (\"contracts/CToken.py\" 873)) (((Some (\"contracts/CToken.py\" 874)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 19)) literal (nat 10)) True) ((Some (\"contracts/CToken.py\" 877)) set ((Some (\"contracts/CToken.py\" 877)) operations) ((Some (\"contracts/CToken.py\" 877)) cons ((Some (\"contracts/CToken.py\" 877)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 877)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 878)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 877)) operations))) ((Some (\"contracts/CToken.py\" 879)) set ((Some (\"contracts/CToken.py\" 879)) operations) ((Some (\"contracts/CToken.py\" 879)) cons ((Some (\"contracts/CToken.py\" 879)) transfer (None parameter) ((Some (\"contracts/CToken.py\" 879)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 880)) self \"setReserveFactorInternal\")) ((Some (\"contracts/CToken.py\" 879)) operations))))) (setReserveFactorInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 883)) (((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 19)) literal (nat 10))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 19)) literal (nat 10)) False) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 887)) verify ((Some (\"contracts/CToken.py\" 887)) le (None parameter) ((Some (\"contracts/CToken.py\" 887)) attr ((Some (\"contracts/CToken.py\" 887)) storage) \"reserveFactorMaxMantissa\")) ((Some (\"contracts/CToken.py\" 887)) literal (string \"CT_INVALID_RESERVE_FACTOR\"))) ((Some (\"contracts/CToken.py\" 889)) set ((Some (\"contracts/CToken.py\" 889)) attr ((Some (\"contracts/CToken.py\" 889)) storage) \"reserveFactorMantissa\") (None parameter)))) (sweepFA12 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 35)) (((Some (\"contracts/utils/SweepTokens.py\" 36)) set_type (None parameter) (record ((amount \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 36)))) ((Some (\"contracts/CFA12.py\" 54)) verify ((Some (\"contracts/CFA12.py\" 54)) neq ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\") ((Some (\"contracts/CFA12.py\" 54)) attr ((Some (\"contracts/CFA12.py\" 54)) storage) \"fa1_2_TokenAddress\")) ((Some (\"contracts/CFA12.py\" 54)) literal (string \"CT_SWEEP_UNDERLYING\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 39)) attr ((Some (\"contracts/utils/SweepTokens.py\" 39)) storage) \"administrator\")) (value ((Some (\"contracts/utils/SweepTokens.py\" 40)) attr (None parameter) \"amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (sweepFA2 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 51)) (((Some (\"contracts/utils/SweepTokens.py\" 52)) set_type (None parameter) (record ((amount \"nat\") (id \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 52)))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) set ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 45)) cons ((Some (\"contracts/utils/TransferTokens.py\" 45)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 45)) list ((Some (\"contracts/utils/TransferTokens.py\" 26)) record (from_ (None self_address)) (txs ((Some (\"contracts/utils/TransferTokens.py\" 26)) list ((Some (\"contracts/utils/TransferTokens.py\" 29)) record (amount ((Some (\"contracts/utils/SweepTokens.py\" 56)) attr (None parameter) \"amount\")) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 55)) attr ((Some (\"contracts/utils/SweepTokens.py\" 55)) storage) \"administrator\")) (token_id ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"id\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 43)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 38)) contract \"transfer\" (list (record ((from_ \"address\") (txs (list (record ((amount \"nat\") (to_ \"address\") (token_id \"nat\")) (Value ((\"to_\") ((\"token_id\") (\"amount\")))) (Some (\"contracts/utils/TransferTokens.py\" 22)))))) (Value ((\"from_\") (\"txs\"))) (Some (\"contracts/utils/TransferTokens.py\" 40)))) ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations))))) (sweepMutez True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 16)) (((Some (\"contracts/utils/SweepTokens.py\" 17)) set_type (None parameter) \"bool\") ((Some (\"contracts/utils/SweepTokens.py\" 19)) if_block (None parameter) (((Some (\"contracts/utils/SweepTokens.py\" 22)) set ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 22)) cons ((Some (\"contracts/utils/SweepTokens.py\" 22)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 21)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 20)) contract \"receive\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 21)) attr ((Some (\"contracts/utils/SweepTokens.py\" 21)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations))))) (else_block (((Some (\"contracts/utils/SweepTokens.py\" 24)) set ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 24)) cons ((Some (\"contracts/utils/SweepTokens.py\" 24)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 24)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 24)) contract \"\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 24)) attr ((Some (\"contracts/utils/SweepTokens.py\" 24)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations))))))) (transfer True None None None True None (Some (\"contracts/CToken.py\" 400)) (((Some (\"contracts/CToken.py\" 401)) set_type (None parameter) (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/CToken.py\" 402)))) ((Some (\"contracts/CToken.py\" 403)) verify ((Some (\"contracts/CToken.py\" 403)) or ((Some (\"contracts/CToken.py\" 403)) eq ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\") (None sender)) ((Some (\"contracts/CToken.py\" 404)) ge ((Some (\"contracts/CToken.py\" 404)) get_item ((Some (\"contracts/CToken.py\" 404)) attr ((Some (\"contracts/CToken.py\" 404)) get_item ((Some (\"contracts/CToken.py\" 404)) attr ((Some (\"contracts/CToken.py\" 404)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) ((Some (\"contracts/CToken.py\" 403)) literal (string \"FA1.2_NotAllowed\"))) ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\"))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\"))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 430)) set ((Some (\"contracts/CToken.py\" 430)) operations) ((Some (\"contracts/CToken.py\" 430)) cons ((Some (\"contracts/CToken.py\" 430)) transfer ((Some (\"contracts/CToken.py\" 428)) record (cToken (None self_address)) (dst ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) (src ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) (transferTokens ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) ((Some (\"contracts/CToken.py\" 430)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 427)) open_variant ((Some (\"contracts/CToken.py\" 426)) contract \"transferAllowed\" (record ((cToken \"address\") (dst \"address\") (src \"address\") (transferTokens \"nat\")) (Value (((\"cToken\") (\"src\")) ((\"dst\") (\"transferTokens\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 16))) ((Some (\"contracts/CToken.py\" 426)) attr ((Some (\"contracts/CToken.py\" 426)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 430)) operations))) ((Some (\"contracts/CToken.py\" 411)) set_type ((Some (\"contracts/CToken.py\" 407)) record (from_ ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) (sender (None sender)) (to_ ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) (value ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) (record ((from_ \"address\") (sender \"address\") (to_ \"address\") (value \"nat\")) Variable (Some (\"contracts/CToken.py\" 411)))) ((Some (\"contracts/CToken.py\" 413)) verify ((Some (\"contracts/CToken.py\" 413)) ge ((Some (\"contracts/CToken.py\" 413)) attr ((Some (\"contracts/CToken.py\" 413)) get_item ((Some (\"contracts/CToken.py\" 413)) attr ((Some (\"contracts/CToken.py\" 413)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"balance\") ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\")) ((Some (\"contracts/CToken.py\" 413)) literal (string \"FA1.2_InsufficientBalance\"))) ((Some (\"contracts/CToken.py\" 415)) set ((Some (\"contracts/CToken.py\" 415)) attr ((Some (\"contracts/CToken.py\" 415)) get_item ((Some (\"contracts/CToken.py\" 415)) attr ((Some (\"contracts/CToken.py\" 415)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"balance\") ((Some (\"contracts/CToken.py\" 415)) open_variant ((Some (\"contracts/CToken.py\" 415)) is_nat ((Some (\"contracts/CToken.py\" 416)) sub ((Some (\"contracts/CToken.py\" 416)) attr ((Some (\"contracts/CToken.py\" 416)) get_item ((Some (\"contracts/CToken.py\" 416)) attr ((Some (\"contracts/CToken.py\" 416)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"balance\") ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 417)) set ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) get_item ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) \"balance\") ((Some (\"contracts/CToken.py\" 417)) add ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) get_item ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) \"balance\") ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) ((Some (\"contracts/CToken.py\" 418)) if_block ((Some (\"contracts/CToken.py\" 418)) neq ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\") (None sender)) (((Some (\"contracts/CToken.py\" 419)) set ((Some (\"contracts/CToken.py\" 419)) get_item ((Some (\"contracts/CToken.py\" 419)) attr ((Some (\"contracts/CToken.py\" 419)) get_item ((Some (\"contracts/CToken.py\" 419)) attr ((Some (\"contracts/CToken.py\" 419)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 419)) open_variant ((Some (\"contracts/CToken.py\" 419)) is_nat ((Some (\"contracts/CToken.py\" 420)) sub ((Some (\"contracts/CToken.py\" 420)) get_item ((Some (\"contracts/CToken.py\" 420)) attr ((Some (\"contracts/CToken.py\" 420)) get_item ((Some (\"contracts/CToken.py\" 420)) attr ((Some (\"contracts/CToken.py\" 420)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 421)) if_block ((Some (\"contracts/CToken.py\" 421)) eq ((Some (\"contracts/CToken.py\" 421)) get_item ((Some (\"contracts/CToken.py\" 421)) attr ((Some (\"contracts/CToken.py\" 421)) get_item ((Some (\"contracts/CToken.py\" 421)) attr ((Some (\"contracts/CToken.py\" 421)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 421)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 422)) del_item ((Some (\"contracts/CToken.py\" 422)) attr ((Some (\"contracts/CToken.py\" 422)) get_item ((Some (\"contracts/CToken.py\" 422)) attr ((Some (\"contracts/CToken.py\" 422)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)))))))) (updateMetadata True None None None True None (Some (\"contracts/CToken.py\" 473)) (((Some (\"contracts/CToken.py\" 474)) set_type (None parameter) (record ((key \"string\") (value \"bytes\")) Variable (Some (\"contracts/CToken.py\" 474)))) ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 476)) set ((Some (\"contracts/CToken.py\" 476)) get_item ((Some (\"contracts/CToken.py\" 476)) attr ((Some (\"contracts/CToken.py\" 476)) storage) \"metadata\") ((Some (\"contracts/CToken.py\" 476)) attr (None parameter) \"key\")) ((Some (\"contracts/CToken.py\" 476)) attr (None parameter) \"value\")))) (updateProtocolSeizeShare True (Some True) None None True None (Some (\"contracts/CToken.py\" 794)) (((Some (\"contracts/CToken.py\" 795)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 797)) set ((Some (\"contracts/CToken.py\" 797)) attr ((Some (\"contracts/CToken.py\" 797)) storage) \"protocolSeizeShareMantissa\") (None parameter)))))\nflags ()\nprivates ()\nviews ((onchain accrualBlockNumber True (Some (\"contracts/CToken.py\" 684)) False \"\" (((Some (\"contracts/CToken.py\" 685)) set_type ((Some (\"contracts/CToken.py\" 684)) parameter) \"unit\") ((Some (\"contracts/CToken.py\" 686)) result ((Some (\"contracts/CToken.py\" 686)) attr (None storage) \"accrualBlockNumber\")))) (onchain balanceOf True (Some (\"contracts/CToken.py\" 500)) False \"\" (((Some (\"contracts/CToken.py\" 501)) define_local \"result\" ((Some (\"contracts/CToken.py\" 501)) literal (intOrNat 0)) True) ((Some (\"contracts/CToken.py\" 502)) if_block ((Some (\"contracts/CToken.py\" 502)) contains ((Some (\"contracts/CToken.py\" 502)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 500)) parameter)) (((Some (\"contracts/CToken.py\" 503)) set ((Some (\"contracts/CToken.py\" 503)) var \"result\") ((Some (\"contracts/CToken.py\" 503)) attr ((Some (\"contracts/CToken.py\" 503)) get_item ((Some (\"contracts/CToken.py\" 502)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 500)) parameter)) \"balance\")))) ((Some (\"contracts/CToken.py\" 504)) result ((Some (\"contracts/CToken.py\" 504)) var \"result\")))) (onchain borrowBalanceStoredView True (Some (\"contracts/CToken.py\" 620)) False \"\" (((Some (\"contracts/CToken.py\" 621)) set_type ((Some (\"contracts/CToken.py\" 620)) parameter) \"address\") ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 620)) parameter)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 620)) parameter)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr (None storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 622)) result ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")))) (onchain comptroller True (Some (\"contracts/CToken.py\" 679)) False \"\" (((Some (\"contracts/CToken.py\" 680)) set_type ((Some (\"contracts/CToken.py\" 679)) parameter) \"unit\") ((Some (\"contracts/CToken.py\" 681)) result ((Some (\"contracts/CToken.py\" 681)) attr (None storage) \"comptroller\")))) (onchain exchangeRateStoredView True (Some (\"contracts/CToken.py\" 660)) False \"\" (((Some (\"contracts/CToken.py\" 661)) set_type ((Some (\"contracts/CToken.py\" 660)) parameter) \"unit\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr (None storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 662)) result ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) (onchain getAccountSnapshotView True (Some (\"contracts/CToken.py\" 593)) False \"\" (((Some (\"contracts/CToken.py\" 565)) define_local \"compute_CToken_565\" ((Some (\"contracts/CToken.py\" 565)) record (account ((Some (\"contracts/CToken.py\" 593)) parameter)) (borrowBalance ((Some (\"contracts/CToken.py\" 568)) literal (nat 0))) (cTokenBalance ((Some (\"contracts/CToken.py\" 567)) literal (nat 0))) (exchangeRateMantissa ((Some (\"contracts/CToken.py\" 569)) literal (nat 0)))) True) ((Some (\"contracts/CToken.py\" 571)) if_block ((Some (\"contracts/CToken.py\" 571)) contains ((Some (\"contracts/CToken.py\" 571)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 593)) parameter)) (((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr (None storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 573)) set ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"cTokenBalance\") ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 573)) get_item ((Some (\"contracts/CToken.py\" 571)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 593)) parameter)) \"balance\")) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 593)) parameter)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 593)) parameter)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr (None storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 574)) set ((Some (\"contracts/CToken.py\" 574)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"borrowBalance\") ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")) ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr (None storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 575)) set ((Some (\"contracts/CToken.py\" 575)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"exchangeRateMantissa\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) ((Some (\"contracts/CToken.py\" 594)) result ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\")))))\nentrypoints_layout ()\ninitial_metadata ()\nbalance ())", + "id": "(None static_id 0)", + "line_no": "(Some (\"\" -1))", "show": true } ], diff --git a/compiled_contracts/script_init.py b/compiled_contracts/script_init.py index 65b35c71..f6ce3f9b 100644 --- a/compiled_contracts/script_init.py +++ b/compiled_contracts/script_init.py @@ -1,4 +1,5 @@ import smartpy as sp +import json CFG = sp.io.import_script_from_url("file:deploy/compile_targets/Config.py") CFA12 = sp.io.import_script_from_url("file:contracts/CFA12.py") @@ -6,10 +7,27 @@ UTILS.checkDependencies(CFG.CFA12) -sp.add_compilation_target("CoXTZ", CFA12.CFA12( +sp.add_compilation_target("CtzBTC", CFA12.CFA12( comptroller_ = sp.address(CFG.deployResult.Comptroller), interestRateModel_ = sp.address(CFG.deployResult.CFA12_IRM), initialExchangeRateMantissa_ = sp.nat(CFG.CFA2.initialExchangeRateMantissa), administrator_ = sp.address(CFG.deployResult.Governance), - fa1_2_TokenAddress_ = sp.address(CFG.deployResult.oXTZ) + # specify metadata before deployment + metadata_ = sp.big_map({ + "": sp.utils.bytes_of_string("tezos-storage:data"), + "data": sp.utils.bytes_of_string(json.dumps({ + "name": "TezFin Interest-Bearing tzBTC", + "description": "Interest-bearing token for tzBTC (wrapped Bitcoin on Tezos) 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 tzBTC"), + "symbol": sp.utils.bytes_of_string("\ua730tzBTC"), + "decimals": sp.utils.bytes_of_string("8"), + }, + fa1_2_TokenAddress_ = sp.address(CFG.deployResult.tzBTC) )) diff --git a/compiled_contracts/script_pure.py b/compiled_contracts/script_pure.py index 65b35c71..f6ce3f9b 100644 --- a/compiled_contracts/script_pure.py +++ b/compiled_contracts/script_pure.py @@ -1,4 +1,5 @@ import smartpy as sp +import json CFG = sp.io.import_script_from_url("file:deploy/compile_targets/Config.py") CFA12 = sp.io.import_script_from_url("file:contracts/CFA12.py") @@ -6,10 +7,27 @@ UTILS.checkDependencies(CFG.CFA12) -sp.add_compilation_target("CoXTZ", CFA12.CFA12( +sp.add_compilation_target("CtzBTC", CFA12.CFA12( comptroller_ = sp.address(CFG.deployResult.Comptroller), interestRateModel_ = sp.address(CFG.deployResult.CFA12_IRM), initialExchangeRateMantissa_ = sp.nat(CFG.CFA2.initialExchangeRateMantissa), administrator_ = sp.address(CFG.deployResult.Governance), - fa1_2_TokenAddress_ = sp.address(CFG.deployResult.oXTZ) + # specify metadata before deployment + metadata_ = sp.big_map({ + "": sp.utils.bytes_of_string("tezos-storage:data"), + "data": sp.utils.bytes_of_string(json.dumps({ + "name": "TezFin Interest-Bearing tzBTC", + "description": "Interest-bearing token for tzBTC (wrapped Bitcoin on Tezos) 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 tzBTC"), + "symbol": sp.utils.bytes_of_string("\ua730tzBTC"), + "decimals": sp.utils.bytes_of_string("8"), + }, + fa1_2_TokenAddress_ = sp.address(CFG.deployResult.tzBTC) ))